viết chương trình nhập vào 1 mảng a và n là số phần tử của mảng(n<=100) in ra dãy sắp xếp tăng dần
viết chương trình nhập vào 1 mảng a và n là số phần tử của mảng(n<=100) in ra dãy sắp xếp tăng dần
By Margaret
By Margaret
viết chương trình nhập vào 1 mảng a và n là số phần tử của mảng(n<=100) in ra dãy sắp xếp tăng dần
uses crt;
var a: array[1..100] of integer;
i,n,j,t: integer;
begin
clrscr;
write (‘nhap n: ‘); readln (n);
for i:=1 to n do
begin
write (‘nhap 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
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
write (‘day sau khi sap xep tang dan la: ‘);
for i:=1 to n do
write (a[i],’ ‘);
readln;
end.