Question

Решить в PASCAL ABC с WHILE... СРОЧНОООО!!!!!!! Организовать беспрерывный ввод чисел с клавиатуры, пока пользователь не введёт 0. После ввода нуля, показать на экран количество чисел, которые были введены, их общую сумму и среднее арифметическое.

Answer 1

Var
   A,n:integer;
   S:real;
Begin
S:=0;
n:=0;
Read(A);
While A<>0 do
   Begin
   n:=n+1;
   S:=S+A;
   Read(A);
   End;
WriteLn('S = ',S);
WriteLn('n = ',n);
WriteLn('Sr = ',S/n);
End.