Question

1/Nhập Vào số nguyên dương N<=100 và dãy số từ A1 ---> An từ bàn phím sau đó lập trình đưa ra màn hình số các số trong dãy có giá trị lớn hơn 10 mọi người giúp em với

2/nhập vào xâu S1 vào bàn phím sau đó tạo xâu S2 gồm tất cả a & b từ xâu S1 gồm tất cả các kí tự

Answer 1

1/write('So so can nhap: ');
readln(n);
{******Nhap mang a gom cac so nguyen duong < 1000********}
for i:=1 to n do
begin
write('Nhap so thu ', i);
readln(a[i]);
while a[i] > 1001 do
(chỗ này đề bài hơi khó hiểu, nếu nguyên dương thì cần gì trị tuyệt đối, nhưng nếu cả số nguyên âm nữa thì bạn phải dùng đk abs(a[i])>1001)
begin
write('Ban phai nhap lai so nho hon 1001: ');
readln(a[i]);
end;
end;
kt:=true;
{******* In mang cac so da nhap*******}
for i:=1 to n do
begin
write(a[i]: 6);
if i mod 8=0 then writeln;
end;
{***** Kiem tra day co phai la cap so cong ko"*****}
for i:=1 to n-2 do
if a[i]+a[i+2]<> 2* a[i+1] then kt:= false;
if kt then write('Day la cap so cong')
else writeln('Day ko la cap so cong');
readln;
END.

2/ ‘thanh’ > ‘thao’ vì ‘n’ > ‘o’
Nếu so sánh hết chiều dài của chuỗi ngắn hơn mà không có cặp nào khác nhau thì chuỗi ngắn hơn sẽ nhỏ hơn, ví dụ:

‘an’ < ‘anh’

‘chu’ < ‘chung’

Hai chuỗi bằng nhau khi chúng cùng độ dài và các ký tự ở các vị trí tương ứng thì bằng nhau.

Chương trình như sau ( mình chạy máy rồi đấy:)
program baitap;
uses crt;
var s1,s2:string;
begin
clrscr;
write('Nhap s1: ');readln(s1);
write('Nhap s2: ');readln(s2);
if s1>s2 then writeln('Hai xau s1,s2 duoc in ra la: '),s1,s2)
else writeln(s2,s1);
readln
end.

Answer 2

program bai1;

var a:array[1..100] of longint;

i,n:longint;

begin

wrtie('N= ');readln(n);

for i:=1 to n do

begin

write('A[',i,']= ');

readln(a[i]);

end;

write('Cac phan tu trong day lon hoc 10 la ');

for i:=1 to n do

if a[i]>10 then write(a[i],' ');

readln

end.