Question

Написать программу, вычисляющую среднее арифметическое N чисел, введенных с клавиатуры. Цикл for; pascal.

Answer 1

Const n = 10;
var b: Integer;
var a: array[1..n] of integer;
begin 
for var i := 1 to n do 
begin 
Read(a[i]); 
b+=a[i]; 
end; 
Writeln(b/n);
end.

Answer 2

Для решения данной задачи на языке программирования Pascal можно использовать цикл for и переменные. Ниже приведен пример программы, которая вычисляет среднее арифметическое n чисел, введенных с клавиатуры:

Program Average;

Var
  n, i, number: Integer;
  sum, average: Real;

Begin
  Write('Введите количество чисел: ');
  ReadLn(n);
  
  sum := 0;
  For i := 1 to n do
  Begin
    Write('Введите число ', i, ': ');
    ReadLn(number);
    sum := sum + number;
  End;
  
  average := sum / n;
  WriteLn('Среднее арифметическое = ', average:0:2);
  
End.

Программа сначала запрашивает у пользователя количество чисел n. Затем в цикле for от 1 до n программа запрашивает ввод числа и прибавляет его к переменной sum. После окончания цикла программа вычисляет среднее арифметическое, разделив сумму чисел на их количество, и выводит результат на экран.

Заметим, что в данной программе используются переменные n (количество чисел), i (переменная цикла), number (введенное пользователем число), sum (сумма чисел) и average (среднее арифметическое).