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

1

Ответы и объяснения

2013-05-05T12:19:20+04:00

 

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

 

 

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.