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

Найти среднее арифметическое N-чисел, введенных с клавиатуры, кратных 3 и 5 одновременно. В паскале.

Ответы

Автор ответа: emblerik
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