Câu 1:
program Xap_sep;
uses crt;
var A:array [1..500] of integer;
n,i,j,tg: integer;
Begin
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(A[i]);
end;
for i:=1 to n=1 do
for j:=i+1 to n do
if A[i]<A[j] then
begin
tg:=A[i];
A[i]:=A[j];
A[j]:=tg;
end;
write('Day sau khi sap xep giam dan: ');
for i:=1 to n do write(A[i],' ');
readln
End.
Câu 2:
program nho_bang;
uses crt;
var n,i: integer;
Begin
write('Nhap n: '); readln(n);
write('Nhung so le <= ',n,': ');
i:=1;
while i<=n do
begin
if i mod 2<>0 then write(i,' ');
i:=i+1;
end;
readln
End.
Câu 3:
program Tong;
uses crt;
var n,i,T: integer;
Begin
write('Nhap n: '); readln(n);
i:=1;
while i<=n do
begin
if i mod 2=0 then T:=T+i;
i:=i+1;
end;
write('T = ',T);
readln
End.
Câu 4:
program Tich;
uses crt;
var n,i,S: integer;
Begin
write('Nhap n: '); readln(n);
S:=1; i:=1;
while i<=n do
begin
if i mod 2<>0 then S:=S*i;
i:=i+1;
end;
write('Tich = ',S);
readln
End.
