Question

Программа на языке паскаль: найти среднее арифметических из 20 введенных чисел

Answer 1

Ответ:

Дан во вложениях (версия с массивом и без).

Answer 2

Конечно, вот пример программы на языке Паскаль, который находит среднее арифметическое из 20 введенных пользователем чисел:

pascalCopy code
program CalculateAverage;

var
  i, n: integer;
  sum, num: real;

begin
  sum := 0;

  writeln('Введите 20 чисел:');

  for i := 1 to 20 do
  begin
    write('Введите число ', i, ': ');
    readln(num);
    sum := sum + num;
  end;

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

Эта программа сначала объявляет переменные i, n, sum и num, где i используется для счетчика итераций, sum для накопления суммы введенных чисел, и num для временного хранения введенного числа.

Затем она использует цикл for для ввода 20 чисел, вычисляя при этом сумму всех введенных чисел. В конце программа выводит среднее арифметическое, разделив сумму на количество чисел.

Обратите внимание, что данная программа предполагает, что пользователь будет вводить 20 чисел подряд. Вы можете запустить эту программу на совместимом с Паскалем компиляторе для получения результата.