Дан одномерный массив размером 25, диапозон значений заданный рандомом и равен 250, найти минимальное занчение для нечетных индексов, максимальное для четных

willzymustdie willzymustdie    2   30.05.2019 15:10    0

Ответы
veder111oy2x71 veder111oy2x71  30.06.2020 16:45
Program test;
const n = 25;
var i,min,max:integer;
m:array [1..n] of integer;
begin
randomize;
min:=251;
max:=-1;
for i:=1 to n do
m[i]:=random(250);
for i:=1 to n do
if i mod 2 = 0  
then if m[i]<min then min:=m[i] 
else if m[i]>max then max:=m[i];
writeln(min);
writeln(max);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика