Заполнить массив из 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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
