Question

Написать программу, которая вводит с клавиатуры последовательность из 10 вещественных чисел, считает сумму и среднее арифметическое этих чисел.
нужно составить блок-схему для этой задачи.

Answer 1

Pascal

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.

Answer 2

var
 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.