Odpowiedzi

Najlepsza Odpowiedź!
2010-02-03T17:52:30+01:00
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.