Question

Составьте программу вычисления среднего арифметического n чисел , заданных с клавиатуры. Срочно, пожалуйста!

Answer 1

Var
   n:integer;
   A,S:Real;
Begin
Write('n = ');ReadLn(n);
WriteLn('Введите числа(',N,' шт.)');
For n:= 1 to n do
    Begin
    Read(A);
    S:=S+A;
    End;
WriteLn('Sr = ',S/n);
End.