Question

Дан массив Y (N) найти среднеарифметическое четных элементов данного массива

Answer 1

var n,a,i,s: integer;

begin

Read(n);

For i:=1 to n do Read(a[i]);

For i:=1 to n do

if a[i] mod 2=0 then begin

s:=s+a[i]; k:=k+1; end;

Write(s/k);

end.