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.

Answer 3

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

luaCopy code
  +-------------------+
  |   Начало         |
  |                   |
  |   Инициализация  |
  |   счетчика i     |
  |   Сумма = 0      |
  +-------------------+
         |
         v
  +-------------------+
  |   Пока i < 10    |
  |                   |
  |   +---------------+
  |   |   Ввод числа  |
  |   |   (с клавиатуры)|
  |   +---------------+
  |   |   Сумма = Сумма + число |
  |   |   Увеличить i на 1 |
  |   +---------------+
  +-------------------+
         |
         v
  +-------------------+
  |   Среднее = Сумма / 10  |
  |   Вывод Суммы и Среднего |
  +-------------------+
  |   Конец          |
  +-------------------+

Эта блок-схема начинается с инициализации счетчика i и переменной Сумма, затем в цикле 10 раз происходит ввод числа с клавиатуры, добавление его к сумме и увеличение i на 1. После завершения цикла вычисляется среднее арифметическое и выводятся сумма и среднее значение.