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

Question

Информатика

Лукаша

30 июля, 01:57

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

+5

Ответы (1)

Знаете ответ на вопрос?

Федюха · Answer 1

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.