Дан одномерный массив размером 25, диапозон значений заданный рандомом и равен 250, найти минимальное занчение для нечетных индексов, максимальное для четных
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.
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.