Составьте программу. Даны 6 чисел, найти среднее арифметическое. Помогите пожалуйста)
Answers & Comments
guztata
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.
Answers & Comments
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.