var i,s,a: integer;
begin
for i:=1 to 8 do
readln (a);
s:=s+a
end;
writeln;
writeln ('Среднее арифметическое: ',s/8)
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var i,s,a: integer;
begin
for i:=1 to 8 do
begin
readln (a);
s:=s+a
end;
writeln;
writeln ('Среднее арифметическое: ',s/8)
end.