Question

Паскаль, прислать скриншот работы программы.

Заполнить массив состоящий из 25 элементов целыми случайными числами от 49 до 99, вывести его на экран, отсортировать его по убыванию и экран.

Answer 1

Ответ:

картинки

Объяснение:

program Chernovik;

var a:array[1..25] of integer;

i,j,v,m: integer;

begin

writeln('Массив: ');

randomize;

for i:=1 to 25 do

begin

a[i]:=random(51)+49;

write (a[i]:5)

end;

writeln;

writeln('Массив: ');

for i:=1 to 25 do

begin

m:=i;

for j:=i to 25 do

if a[j]>a[m] then m:=j;

v:=a[i];

a[i]:=a[m];

a[m]:=v

end;

for i:=1 to 25 do write (a[i]:5)

end.