Ответ учителя по предмету Информатика
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.
Похожие вопросы от пользователей
Две машины перевезли 99 т зерна,сделав одинаковое количество рейсов.Сколько тонн зерна перевезла каждая машина если первая перевозила 4т зерна за рейс,а другая — по 5т?
ХЕЛП!