Предмет: Информатика, автор: xamit91

в массиве Y состоящем из 12 целых чисел определить среднее арифметическое тех из них которые являются четными

Ответы

Автор ответа: HelenOK
0
var y: array[1..12] of integer;
i,k:integer; s:real;
begin
for i:=1 to 12 do
read (y[i]);
for i:=1 to 12 do
if y[i] mod 2=0 then
begin
s:=s+y[i];
k:=k+1;
end;
s:=s/k;
write (s:5:1);
end.


Похожие вопросы
Предмет: География, автор: voicehovskaya
Предмет: Математика, автор: sashs2013