Акакий
6 год назад
Составьте программу. Даны 6 чисел, найти среднее арифметическое. Помогите пожалуйста)
ОТВЕТЫ
Белевский
Aug 1, 2019
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.
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.
281
Смежные вопросы:
