Pascal.ABC/Дан массив A размера N. Найти максимальный элемент из его элементов с нечетными номерами: A1, A3, A5, … .

const n=10;var a:array[1..n] of integer;max,i:integer;beginRandomize;for i:=1 to n do begin a[i]:=random(51); write(a[i],' '); end;writeln;max:=a[1]; for i:=1 to (n-1) div 2 do if a[2*i+1]>max then max:=a[2*i+1];writeln('max = ',max);end.Пример:20 31 42 35 5 44 11 23 26 27 max = 42