Упорядочить одномерный массив [1..10], заполненный случайными целыми числами по убыванию.
Упорядочить одномерный массив [1..10], заполненный случайными целыми числами по убыванию.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы