Nhập dãy số in ra màn hình số lớn nhất, số nhỏ nhất và sắp xếp dãy số theo thứ tự tăng dần
Nhập dãy số in ra màn hình số lớn nhất, số nhỏ nhất và sắp xếp dãy số theo thứ tự tăng dần
By Julia
By Julia
Nhập dãy số in ra màn hình số lớn nhất, số nhỏ nhất và sắp xếp dãy số theo thứ tự tăng dần
Cho mik xin nhất plz
program tang_dan;
uses crt;
var A:array[1..1000] of integer;
n,i,j,tg,max,min:integer;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);
end;
max:=A[1]; min:=A[1];
for i:=2 to n do
if A[i]>max then max:=A[i]
else if A[i]<min then min:=A[i];
writeln(‘So lon nhat la: ‘,max);
writeln(‘So nho nhat la: ‘,min);
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 sap xep theo tang dan la: ‘);
for i:=1 to n do write(A[i],’ ‘);
readln;
end.