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

Question

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

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 <= 18 ) and ( n >=-5 )) then
    begin
      mean := mean + n;
      count := count + 1;
    end;
  end;
 
  mean := mean / count;
  writeln('Среднее арифметическое = ', mean);
end.