Question

Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое трёхзначных чисел. Программа получает на вход количество натуральных чисел и сами натуральные числа. Количество чисел не превышает 100. Введённые числа не превышают 300.​

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger;

 ReadSeqInteger(n)

     .Where(p -> p.InRange(100, 300))

     .DefaultIfEmpty

     .Average

     .Println

end.

Answer 2

var a,n,k,i,s: integer;

begin

readln(n);

s:=0;

k:=0;

for i:=1 to n do begin

readln(a);

if (a>=100) and (a<=300) then begin

s:=s+a;

k:=k+1;

end;

end;

write(s/k);

end.