383nightflare
Здравствуйте, а можете с пояснения написать ?
Sanya2263
1 строка – ввод переменных. 3 и 4 строка – ввод данных массива. 6 и 7 строка – проверка элементов массива на четность. 8 строка – если элемент массива четный, то добавляем его в сумму и количество. В 9 строке выводим сумму, деленную на количество – это и есть среднее арифметическое.
Answers & Comments
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.