Question

Ввести с клавиатуры 10 произвольных чисел, вычислить среднее арифметическое (в pascal)

Answer 1

Ответ:

Объяснение:

PascalABC.NET. Версия 3.5.1, сборка 2261 (4.11.2019)

program abc;

const n=10;

var i:integer;

sr,sum,ch:real;

begin

 sum:=0;

 for i:=1 to n do

  begin

   readln(ch); // Ввод числа с клавиатуры

   sum:=sum+ch; // Вычисляем сумму всех чисел

  end;

   

  sr:=sum/n; // Вычисляем среднее арифметическое чисел

  writeln('Среднее арифметическое значение чисел: ', sr);

end.

Answer 2

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

pascalCopy code
program CalculateAverage;

var
  i: Integer;
  sum, num: Real;

begin
  sum := 0;

  writeln('Введите 10 произвольных чисел:');

  for i := 1 to 10 do
  begin
    write('Число ', i, ': ');
    readln(num);
    sum := sum + num;
  end;

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

Программа начинает с объявления переменных. Затем она входит в цикл, который выполняется 10 раз, чтобы получить 10 чисел от пользователя. Каждое введенное число добавляется к общей сумме. После того как все 10 чисел введены, программа вычисляет среднее арифметическое путем деления суммы на количество чисел (в данном случае, 10) и выводит результат на экран.

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