Предмет:Информационная Технология
i,j,x,n,k: integer;
begin
randomize;
writeln('ishodnyj massiv');
for i:=1 to 20 do
begin
a[i]:=random(20);
write(a[i]:4);
end;
Writeln;
for i:=1 to 19 do
for j:=i+1 to 20 do
if a[i]<a[j] then begin
k:=a[i];
a[i]:=a[j];
a[j]:=k;
end;
for i:=1 to 20 do
writeln(a[i]);
end.