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

Question

Информатика

Готя

15 ноября, 12:59

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

+5

Ответы (1)

Знаете ответ на вопрос?

Капитон · Answer 1

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]
else if m[i]>max then max:=m[i];

writeln (min) ;

writeln (max) ;

end.