Дан одномерный массив размером 25, диапозон значений заданный рандомом и равен 250, найти минимальное занчение для нечетных индексов, максимальное для четных
Дан одномерный массив размером 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]max then max:=m[i];
writeln(min);
writeln(max);
end.
Не нашли ответ?
Похожие вопросы