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

Question

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

derkioptu · Answer

var n,a,i,s: integer;beginRead(n);For i:=1 to n do Read(a[i]);For i:=1 to n doif a[i] mod 2=0 then begins:=s+a[i]; k:=k+1; end;Write(s/k);end....