Записати блок схему з розгалуженням і повторенням

Вне сказано, откуда берутся исходные данные, поэтому будем вводить их с клавиатуры. сначала ведем общее количество данных (не факт, что данные за месяц снимались строго ежедневно), а затем сами данные. это позволит заодно осуществить контроль ввода. var   n,s,t,i: integer; begin   write('укажите количество данных: ');   read(n);   writeln('теперь вводите данные');   s: =0;   for i: =1 to n do       begin       read(t);       s: =s+t       end;   writeln('средняя температура за месяц составила ',s/n: 0: 1) end. пример решения укажите количество данных: 11 теперь вводите данные 27 29 26 31 24 23 27 30 31 28 25 средняя температура за месяц составила 27.4

Пойдет?

1)

// этажей<6 лифта нет, до 9 этажей 1 лифт, более 9 2 лифта

//По известным количеством этажей определить, сколько лифтов необходимо установить в доме.

program v1;

var n,m:integer;

  begin

    writeln('Введите количество этажей'); readln(n);

    m:=n;

    if m<6 then writeln('Лифта нет');

    if (m>=6) and (m<=9) then writeln('1 лифт');

    if m>=10 then writeln('2 лифта');

  end.

2)

//рейсы 107, 201, 32. Самолеты этих рейсов находятся на стоянках с номерами 3, 4, 5 соответственно.  

//По известному номеру рейса определить, на какую стоянку необходимо отправить багаж пассажиров.

program v1;

var n,m:integer;

 begin

   writeln('Введите номер рейса'); readln(n);

   m:=n;

   if m=107 then writeln('Стоянка с номером 3');

   if m=201 then writeln('Стоянка с номером 4');

   if m=32 then writeln('Стоянка с номером 5');

   if (m<>107) and (m<>201) and (m<>32) then writeln('Таких рейсов нет');

 end.