Составьте программу заполняет массив [1 ... 10] случайными целыми числами в диапазоне от 0 до10 и находит максимальный элемент массива среди элементов с четными индексами

Question

Информатика

Леонтия

9 июля, 04:06

Составьте программу заполняет массив [1 ... 10] случайными целыми числами в диапазоне от 0 до10 и находит максимальный элемент массива среди элементов с четными индексами

+2

Ответы (1)

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

Олимпий · Answer 1

Const n=10;

var a:array [1 ... n] of integer;

i, max: integer;

begin

randomize;

for i:=1 to n do

begin

a[i]:=random (10) ;

write (a[i],' ')

end;

writeln;

max:=a[1];

for i:=1 to n do if (i mod 2 = 0) and (max
then max:=a[i];

writeln (max)

end.