Вводится 10 чисел определить среднее арифметическое чисел попадающих в интервал от - 5 до 18. на языке программирования паскаль

Question

Информатика

Феоктист

24 августа, 06:29

Вводится 10 чисел определить среднее арифметическое чисел попадающих в интервал от - 5 до 18. на языке программирования паскаль

+4

Ответы (1)

Знаете ответ на вопрос?

Аблямин · Answer 1

Var

mean, count, n: real;

i: byte;

begin

mean : = 0;

count : = 0;

for i : = 1 to 10 do

begin

readln (n) ;

if ((n = - 5)) then

begin

mean : = mean + n;

count : = count + 1;

end;

end;

mean : = mean / count;

writeln ('Среднее арифметическое = ', mean) ;

end.