Sergeevna-Makarov
?>

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

Информатика

Ответы

rmitin

картинки

Объяснение:

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.


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

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

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

Популярные вопросы в разделе

Pavel1545
rigina82
SlavaA99
Mashkov-Daniil1764
stalker2201
msk27
kate281078
Gatina
Kochetova92
Yevgenii1423
Moroshkina-Aristova2011
dashkevich-76611
Abespal
yfetyukov2
gurman171