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

Найти среднее арифметическое N-чисел, введенных с клавиатуры, кратных 3 и 5 одновременно. В паскале.
Гость
Ответ(ы) на вопрос:
Гость
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.   
Не нашли ответ?
Ответить на вопрос
Похожие вопросы