program pr;
Var a,n,S:integer;
sr:real;
begin
n:=0;
S:=0;
writeln('Введите a');
readln(a);
while a<>0 do
begin
inc(n);
S:=S+a;
read(a);
end;
sr:=S/2;
readln(sr);
writeln ('sr=',sr:10:4);
end.
program pr;
Var a,n,S:integer;
sr:real;
begin
n:=0;
S:=0;
writeln('Введите a');
readln(a);
while a<>0 do
begin
inc(n);
S:=S+a;
read(a);
end;
sr:=S/2;
readln(sr);
writeln ('sr=',sr:10:4);
end.
Var
a,n:integer;
S,sr:real;
begin
n:=0;
S:=0;
repeat
writeln('??????? a');
readln(a);
S:=S+a;
inc(n);
until a=0;
sr:=S/(n-1);
writeln ('sr=',sr:10:4);
end.
program pr;
Var a,n,S:integer;
sr:real;
begin
n:=0;
S:=0;
writeln('Введите a');
readln(a);
while a<>0 do
begin
inc(n);
S:=S+a;
read(a);
end;
sr:=S/2;
readln(sr);
writeln ('sr=',sr:10:4);
end.