Решить информатика стр 4 №4. бим поедет в цирк на автобусе. бом может поехать на машине или на автобусе. в каком случае бом поедет на автобусе? допиши алгоритмы: 1 начало 2 3 то 6. 7. иначе 10. дойти 11. 14.выйти у цирка

2. выйди из дома

3. если машина исправна

то 4. сядь в машину

5. заведи машину

6. поезжай прямо

7. поверни на право

8. останови машину у цирка

9. выйди из машины

иначе 10. дойди до автобусной остановки

11. дождись автобуса

12. сядь в автобус

13. заплати за проезд

Var     max,min,i: integer;     b: real;     a: array[1..9]of integer; begin for i: =1 to 9 do   begin   while (a[i]< 1) or (a[i]> 6) do     begin     write(i,' оценка: ');     readln(a[i]);     end;   if i=1 then     begin     max: =a[1];     min: =a[1];     end;   if a[i]> max then max: =a[i];   if a[i]< min then min: =a[i];   b: =b+a[i];   end; b: =(b-min-max)/7; writeln('зачетная оценка: ',b); end. 

Program project1; var    a: array[1..5] of integer;     i, j, sum: integer;     s: string; begin  readln(s);   sum: =0;     for i: =1 to 5 do        begin              if (length(s)> =2) then                  begin                      j: =pos(' ', s);                     a[i]: =strtoint(copy(s, 1, j-1));                     sum: =sum+a[i];                     delete(s, 1, j);                   end              else          begin              a[i]: =strtoint(s);               sum: =sum+a[i];           end;   end;       for i: =1 to 5 do          begin              if (a[i]< > 0) then                    begin                        a[i]: =a[i]-sum;                         write(a[i], ' ');                     end              else                begin                      a[i]: =a[i];                       write(a[i], ' ');                 end;           end;   end.