Ответы
Ответ дал:
1
Ответ:
var
a,sum,sr:real;
i:integer;
begin
sum:=0;
for i:=1 to 6 do
begin
writeln('введи число');
read (a);
sum:=sum+a;
end;
sr:=sum/6;
writeln('среднее арефмитическое равно',sr);
end.
Объяснение:
хорошего дня
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад