ответ:var N,sr,a,r : Integer;
S : real:
sr:=0;
r:=0;
Read(N);
While N<>0 do
Begin
Read(a);
r:=r+a;
End;
Sr:=r/N;
Writeln(Sr);
End.
Объяснение:
