Question

Napisz program, który posortuje w kolejności od najmniejszej do największej liczby podane przez użytkownika do tablicy. W programie dev-Pascal przy użyciu pętli "for".

Answer 1

Var
a:array[0..1000] of longint;
n,i,l,c:longint;

begin
readln(N);
for i:=1 to n do
read(a[i]);

for i:=1 to n do
begin
for l:=i to n do
begin
if a[i]>a[l] then //piszę na gorąco więc tutaj znak
//większości odwrócić jakby działało odwrotnie
begin
c:=a[i];
a[i]:=a[l];
a[l]:=c;
end;
end;
end;

for i:=1 to n do write(a[i],' ');
end.