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

Ответ

Автор - BobbyFresnel

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

begin

var n := ReadInteger;

ReadSeqInteger(n)

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

.DefaultIfEmpty

.Average

.Println

end.

Автор - AnonimusPro

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;

write(s/k);

end.

По всем вопросам пишите на - vashurokk@rambler.ru

Сайт znanija.net не имеет отношения к другим сайтам и не является официальным сайтом компании.