Найти среднее арифметическое чётных элементов массива

[Ринка]

Я совсем не разбираюсь в Паскале.
Помогите пожалуйста решить.

Дан массив А размером 20 элементов, заполнен числами в диапазоне от 1 до 10. Найти среднее арифметическое чётных элементов массива с нечётными индексами.

[rubius2008]

Найти среднее арифметическое чётных элементов массива с нечётными индексами.

...
k:=0; s:=0;
For i:=1 to 10 do 
  if (a[i] mod 2=0) and (i mod 2<>0) then begin
    s:=s+a[i]; k:=k+1;
  end;
writeln('Среднеариф.=',s/k);
...

[Serge_Bliznykov]

writeln('Среднеариф.=',s/k);

позволю себе небольшое уточнение, таких элементов может и не быть, тогда возникнет ошибка деления на ноль.
Несложно добавить проверку с выдачей соответствующего сообщения:

  if k>0 then
    writeln('Среднеариф.=',s/k)
  else
    writeln('В массиве нет чётных элементов на нечётных позициях!');

[rubius2008]

Serge_Bliznykov, cогласен