В паскаль АВС Заполнить массив А[1..8] числами, вводимыми с клавиатуры. Найти среднее...

Question

В паскаль АВС
Заполнить массив А[1..8] числами, вводимыми с клавиатуры. Найти среднее арифметическое четных элементов.

Answer 1

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

i,s:integer;

begin

for i:=1 to 8 do begin

  readln(a[i]);

  if i mod 2 = 0 then s:=s+a[i];

end;

writeln(s/4);

end.