Написать программу, которая вводит с клавиатуры последовательность из 10 вещественных чисел, считает сумму и среднее арифметическое этих чисел. нужно к этой задачке составить блок-схему. пожалуйста. дам 60 баллов
More Questions From This User See All
Answers & Comments
sum,sr,n:real;
begin
sum:=0;
for i:=1 to 10 do
begin
read(n);
sum:=sum+n;
end;
sr:=sum/10;
write('sum=', sum, 'sred=', sr);
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.