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

алиса673 алиса673    3   20.05.2019 20:40    0

Ответы
Гуленко Гуленко  14.06.2020 09:57

 

если в паскале то

 

 

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.

 

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