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*
Комментарий*

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

Caragyant
teta63
Ни Дмитрий1095
ASRodichev
mupmalino2653
kamimoza
nikolai37
baranovaas
pavpe4198
Yuliya701
chapaevval
Vitalevich1187
galtig83
ams-sim
Дил1779