Заполнить массив из 10-ти элементов случайными числами из интервала от [-40;40], вывести на экран и расположить числа в порядке убывания значений элементов.
Заполнить массив из 10-ти элементов случайными числами из интервала от [-40;40], вывести на экран и расположить числа в порядке убывания значений элементов.
Гость
Ответ(ы) на вопрос:
ГостьVar
a:array[1..10] of integer;
i,j,k:integer;
Begin
for i:= 1 to 10 do Begin
a[i]:=random(81)-40;
write(a[i],' ');
End;
Writeln;
for i:= 1 to 10 do
for j:= 1 to 9 do
if a[j]>a[j+1] then
Begin
k:=a[j];
a[j]:=a[j+1];
a[j+1]:=k;
End;
for i:= 10 downto 1 do
write(a[i],' ');
End.
Гость// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
var a:=ArrRandom(10,-40,40); a.Println;
a.SortedDescending.Println
end.
Тестовое решение:
20 -32 1 3 0 21 -14 21 32 -6
32 21 21 20 3 1 0 -6 -14 -32
Не нашли ответ?
Похожие вопросы