Найти среднее арифметическое n-чисел, введенных - вопрос №351402322 от Vitalikebati 11.04.2022 13:30

Question

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

Vitalikebati · Answer

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.   ...