Предмет: Информатика,
автор: xamit91
в массиве Y состоящем из 12 целых чисел определить среднее арифметическое тех из них которые являются четными
Ответы
Автор ответа:
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.
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.
Похожие вопросы
Предмет: Алгебра,
автор: annaver08
Предмет: Алгебра,
автор: Аноним
Предмет: География,
автор: voicehovskaya
Предмет: Биология,
автор: Kozy12
Предмет: Математика,
автор: sashs2013