Ответ учителя по предмету Информатика
var i: integer;
a,s: real;
begin
s:=0;
writeln(‘числа:’);
for i:=1 to 10 do
begin
write(i,’: ‘);
readln(a);
s:=s+a;
end;
writeln(‘среднее арифметическое: ‘,s/10:6:2);
end.
Похожие вопросы от пользователей