Question

Составьте алгоритм согласно которому будет запрошено несколько натуральных чисел и сообщено их среднее арифметическое(количество запрашиваемых чисел тоже запрашивается) информатика паскаль

Answer 1

Var
i,a:integer;
b,c:real;
Begin
read(a);
for i:=1 to a do begin
read(c);
b:=b+c;
end;
writeln(c/a);
end.

Answer 2

Алгоритм на языке Паскаль: 1. Вводим переменную sum и инициализируем ее значением 0. 2. Вводим переменную count и запрашиваем у пользователя количество чисел для ввода. 3. Вводим переменную i и инициализируем ее значением 1. 4. Запускаем цикл, который будет выполняться count раз: - Вводим переменную num и запрашиваем у пользователя натуральное число. - Прибавляем значение num к переменной sum. - Увеличиваем значение i на 1. 5. Вычисляем среднее арифметическое, разделив значение sum на count. 6. Выводим среднее арифметическое на экран.

Пример реализации на языке Паскаль:

program Average;
var
  sum, count, i, num: integer;
  average: real;
begin
  sum := 0;
  write('Введите количество чисел: ');
  readln(count);
  
  for i := 1 to count do
  begin
    write('Введите число ', i, ': ');
    readln(num);
    sum := sum + num;
  end;
  
  average := sum / count;
  writeln('Среднее арифметическое: ', average:0:2);
end.

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