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.
Поделитесь своими знаниями, ответьте на вопрос:
Дан массив Y (N) найти среднеарифметическое четных элементов данного массива
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.