Question

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

Answer 1

 

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

 

 

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.