Xin câu trả lời hay nhất ạ!
CÂU 1:
*Tăng dần
program ct;
ues crt;
var A:array [1..1000] of integer;
i,j,n,tg:integer;
begin clrscr;
write('Nhap so phan tu n: '); readln(n);
for i:=1 to n do
begin
writeln('Nhap so thu ',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;
writeln('Day so sap xep theo thu tu tang dan la: ');
for i:=1 to n do
write(A[i]:3);
readln;
end.
*Giảm dần
program ct;
ues crt;
var A:array [1..1000] of integer;
i,j,n,tg:integer;
begin clrscr;
write('Nhap so phan tu n: '); readln(n);
for i:=1 to n do
begin
writeln('Nhap so thu ',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;
writeln('Day so sap xep theo thu tu giam dan la: ');
for i:=1 to n do
write(A[i]:3);
readln;
end.
CÂU 2:
Program cau2 ;
Uses crt;
Var i,n,Max,Min:integer;
S:longint;
A:array[1..100] of integer;
Begin
Clrscr;
S:=0;
Write('nhap n tu ban phim');
Readln(n);
For i:=1 to n do
Begin
Write('A[',i,']');
Readln(A[i]);
End;
Max:=A[1]; Min:=A[1];
For i:=2 to n do
Begin
if Max<A[i] then Max:=A[i];
if Min>A[i] then Min:=A[i];
end;
Write('so nho nhat la',Min);
Write('so lon nhat la',Max);
Readln
End.
