Предмет: Информатика,
автор: Jannochka
Найти среднее арифметическое N-чисел, введенных с клавиатуры, кратных 3 и 5 одновременно. В паскале.
Ответы
Автор ответа:
0
var
n, i, sum, k : integer;
begin
read (n);
for i := 1 to n do
begin
read (k);
if k mod 15 = 0 then sum := sum + k;
end;
writeln (sum / n);
end.
Похожие вопросы
Предмет: Биология,
автор: cukatnekol
Предмет: Английский язык,
автор: ivakh2008
Предмет: Математика,
автор: imransalihov34
Предмет: Химия,
автор: КсениЯ26