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

Question

Информатика

Елистрат

31 марта, 10:21

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

+1

Ответы (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.