Question

Для одномерного массива, состоящего из n вводимых с клавиатуры элементов (n – не
больше 20), найти максимальный элемент из его элементов с нечётными номерами

Answer 1

Program n1;

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

n,i,max: integer;

begin

readln(n);

for i:=1 to n do read(a[i]);

i:=1;

max:=a[i];

i:=i+2;

repeat

if(a[i]>max) then max:=a[i];

i:=i+2;

until i>n;

write(max);

end.