Найти среднее арифметическое 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.
Не нашли ответ?
Похожие вопросы