Упорядочить одномерный массив [1..10], заполненный случайными целыми числами по убыванию.

Question

Упорядочить одномерный массив [1..10], заполненный случайными целыми числами по убыванию.

Answer 1

Const n=10;
var a:array[1..n] of integer;
i,j,k:integer;
begin
Randomize;
for i:=1 to n do
 begin
 a[i]:=Random(50);
 write(a[i]:4);
end;
writeln;
for i := 1 to n-1 do
 for j := 1 to n-i do
  if a[j] < a[j+1] then
   begin
    k:=a[j]; a[j]:=a[j+1]; a[j+1]:=k;
   end;
for i:=1 to n do write(a[i]:4);
writeln;
end.