Отвечаем на вопросы 1. В каких случаях происходит разветвление?
2. Когда применяется условный оператор?
3. Какова структура условного оператора?
4. Как отображается блок выполнения действия?
5. Что вы знаете о блоке логического выражения?
6. Что такое заголовок и тело условного оператора?
2
Думаем и обсуждаем
1. Почему возникает необходимость применения развет-
вляющихся алгоритмов?
2. В чем заключается важность осуществлена

Существует 4 вида алгоритмов:

Линейный алгоритм -- это описание действий, которые выполняются однократно в заданном порядке. 

Циклический алгоритм -- это описание действий, которые повторяются указанное число раз или пока не выполнено заданное условие. (Перечень повторяющихся действий -- тело цикла)

Разветвляющийся алгоритм — алгоритм, в котором в зависимости от условия выполняется либо та, либо другая последовательность действий. 
Смешанный алгоритм --  это алгоритм, в котором могут соединиться разные виды алгоритмов. (Например, циклический и линейный)  

Uses Crt;

const
  n=15;
 
var
  i,m1,m2,t:integer;
  k:array[1..n] of integer;

begin
  ClrScr;
  Writeln('Укажите количество людей на каждом этаже');
  for i:=1 to n do Read(k[i]);
  Writeln;
  { массив получен, решаем задачу }
  m1:=1; m2:=2;
  if k[m2]<k[m1] then begin t:=m1; m1:=m2; m2:=t end;
  for i:=3 to n do
    if k[i]<k[m2] then begin m2:=i; t:=m1; m1:=m2; m2:=t end;
  Writeln('Меньше всего людей на этажах ',m1,' и ',m2);
  ReadKey
end.

**************************************************************************************

uses Crt;

const
  n=10;
  a:array[1..n] of integer=(6,6,6,6,3,5,2,1,0,7);
 
var
  i,j,t:integer;

begin
  ClrScr;
  t:=a[1];
  i:=2;
  while (i<=n) and (a[i]=t) do i:=i+1;
  if i<=n then begin
    Writeln('Одинаковых элементов: ', i-1);
    Write('За ними следуют элементы ');
    for j:=i to n do Write(a[j],' ');
    Writeln
    end
  else Writeln('Весь массив заполнен одинаковыми элементами');
  ReadKey
end.