Вопрос помогите с програмированием

[shamil]

дано массив а, состоящий из 15 элементов. найти его минимальный элемент среди элементов с четными номерами: а2, а4, а6 ...

 

[Cheater!!!]

q := 4; max := q[2]; while q <= 15 do begin if a[q] > max then max:=a[q]; q := q+2; end;

 

[finiss]

print *,minval(k(2:15:2))

 

[вова а]

Проверка на четность: a % 2 == 0.