Nem tudjatok miert nem mukodik? (info lent)

program rendezes;

var a:array[1..1000]of integer;

i,j,legn,n,x:integer;

begin

write('Medddig akarod?');readln(n);

for i:=1 to n do begin

a[i]:=random(100);

write(a[i]:4);

end;writeln;

for i:=n-1 downto 2 do begin

for j:=1 to i do

if a[j]>a[j+1]

then

x:=a[j];

a[j]:=a[j+1];

a[j+1]:=x;end;

for i:=1 to n do begin

write(a[i]:4);

end;

writeln;

readln;

end.