Question

ПАСКАЛЬ,ПОМОГИТЕ ПОЖАЛУЙСТА Даны натуральное число n и вещественные числа a1, a2, ..., an. Определить среднее арифметическое вещественных чисел... ПАСКАЛЬ,ПОМОГИТЕ ПОЖАЛУЙСТА

Answer 1

Var
  n,i:integer;
  s,a:real;
begin
  writeln('Vvedite n:');
  readln(n);
  writeln('Vvedite chisla:');
  s:=0;
  for i:=1 to n do
  begin
  readln(a);
  s:=s+a;
  end;
  writeln('Srednee arifmeticheskoe =',s/n);
  readln();  
end.

Answer 2

Конечно, я могу помочь!

Среднее арифметическое вещественных чисел a1, a2, ..., an определяется как их сумма, деленная на количество чисел:

среднее арифметическое = (a1 + a2 + ... + an) / n

В Паскале это может быть записано следующим образом:

bashCopy code
var
  n, i: integer;
  a, sum: real;
begin
  write('Введите количество чисел: ');
  readln(n);

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

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

В этом коде мы запрашиваем у пользователя количество чисел n, затем вводим сами числа a1, a2, ..., an и суммируем их в переменную sum. Затем мы делим сумму на n и выводим результат на экран.