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

1

Ответы и объяснения

2013-02-14T10:46:20+00:00

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.