Question

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

Answer 1

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.