Программа на паскаль!!

Question

11.Составить программу, которая находит максимальное значение среди элементов линейной таблицы А, состоящей из N вещественных чисел, имеющих чётные порядковые номера. 
одномерный массив

Татьяна Платонова · Accepted Answer

i:=4; 
max:=0; 
if(n>=2) then max:=a[ 2]; 
while(i<=n) do begin 
if (a[ i]>max) max:=a[ i]; 
i:=i+2; 
end;

Игорь · Answer

m:=a[2]; 
for j:=2 do n shr 1 do 
if a[j shl 1]>m then 
m:=a[j shl 1];