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

Question

Информатика

Андрос

2 августа, 10:37

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

+2

Ответы (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.