Создать массив из 20 случ. Чисел на промежутке от -10 до 30 , отсортировать массив по убыванию На экран вывести исходный и отсортированный массив

Вопрос школьника по предмету Информатика

Создать массив из 20 случ. Чисел на промежутке от -10 до 30 , отсортировать массив по убыванию

На экран вывести исходный и отсортированный массив

Ответ учителя по предмету Информатика

var

a:array[1..20] of integer;

i,j,x:integer;

begin

randomize;

writeln(‘Исходный массив’);

for i:=1 to 20 do

begin

a[i]:=-10+random(40);

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

x:=a[i];

a[i]:=a[j];

a[j]:=x;

end;

writeln(‘Новый массив’);

for i:=1 to 20 do

write(a[i]:4);

readln;

end.