Написать программу, которая вводит с клавиатуры последовательность из 10 вещественных чисел, считает сумму и среднее арифметическое этих чисел.
нужно составить блок-схему для этой задачи.
нужно составить блок-схему для этой задачи.
More Questions From This User See All
Answers & Comments
var
a,s, r : real;
i : integer;
begin
for i := 1 to 10 do
begin
readln (a);
s := s +a;
end;
r := s/r;
writeln ('sr=',r:3:2);
writeln ('s=',s:3:2);
end.
i:integer;
a,sum,s:real;
begin
for i:=1 to 10 do
begin
read(a);
sum:=sum+a;
end;
write('Сумма: ',sum);
s:=s/10;
write('Cреднее арифметическое: ',s);
end.