Question

Найдите среднее арифметическое 5 любых чисел. В паскале с оператором цикла for

Answer 1

Var n,sum,pr:real; i:integer;
Begin
  Write('Введите 5чисел');
  for i:=1 to 5 do begin
               readln(n);
               sum:=sum+n;
      end;
pr:=sum/5;
Writeln('Среднее арифметическое чисел - ',pr);
end.

Answer 2

Для вычисления среднего арифметического 5 любых чисел в Pascal с использованием оператора цикла for, вы можете воспользоваться следующим кодом:

pascalCopy code
program AverageCalculator;
var
  sum, number, count: integer;
  average: real;
begin
  sum := 0;
  count := 5; // Количество чисел, для которых нужно вычислить среднее

  for number := 1 to count do
  begin
    writeln('Введите число ', number, ': ');
    readln(number);
    sum := sum + number;
  end;

  average := sum / count;

  writeln('Среднее арифметическое: ', average:0:2);
end.

В этом коде мы сначала объявляем переменные sum (сумма чисел), number (текущее число), count (количество чисел) и average (среднее арифметическое). Затем мы используем цикл for для ввода 5 чисел с клавиатуры и добавления их к сумме. Наконец, мы вычисляем среднее арифметическое, деля сумму на количество чисел, и выводим результат на экран с двумя знаками после запятой.