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

Lizzzas Lizzzas    2   17.05.2019 11:30    2

Ответы
MariaGraf MariaGraf  10.06.2020 16:28

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.

  

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика