Есть целочисленный массив из 20 эл-тов. нужно отсортировать массив по возрастанию эл-тов. числа любые.паскаль

1

Ответы и объяснения

2014-03-24T09:31:00+04:00
A:array[1..20] of integer;
x, i:integer;
begin
for i:=1 to 20 do
readln(a[i]);
for i:=1 to 20 do
if a[i]>a[i+1] then begin
x:=a[i]; a[i]:=a[i+1]; a[i+1]:=x; end;
for i:=1 to 20 do
writeln(a[i]);
readln;
end.