Конспект лекций по программированию для начинающих. Гладков В.П. - 196 стр.

                                         198

      1 Голубые          Голубые                      2
      2 Карие            Карие                 1
      3 Голубые          Зеленые                      1
      4 Зеленые
      5 Зеленые    Õ
      6 Голубые
   Просматриваем вспомогательный массив 1 для следующего обрабатываемого
элемента, обнаруживаем искомый цвет и увеличиваем соответствующий элемент
вспомогательного массива 2. Изменившееся состояние таково:
     Массив «Цвет»       Вспомогательный Вспомогательный
                                 массив 1             массив 2
      ----------------   -------------------- ----------------------
      1 Голубые          Голубые                      2
      2 Карие            Карие                1
      3 Голубые          Зеленые                      2
      4 Зеленые
      5 Зеленые
      6 Голубые Õ
   Составлем программу:
   program task11_59;
   var       n : integer; { количество жителей Цветочного города }
             a : array [1..100] of string; { массив цветов глаз }
             b1 : array [1..100] of string; { вспомогательный массив 1 }
             b2 : array [1..100] of integer;{ вспомогательный массив 2 }
             m : integer; { количество элементов, записанных во
                              вспомогательных массивах }
             i,j : integer; { индексы }
             f : boolean; { логическая переменная }
   begin
      write('Введите n<100 -количество жителей Цветочного города ');
      readln(n);
      for i:=1 to n do
      begin write('Введите цвет глаз очередного жителя ',
                      'Цветочного города ');
             read(a[i])
      end;
      m := 0; { нет пока элементов во вспомогательных массивах }
      for i:=1 to n do
      begin
             j := 1;
             f := false;
             while (j<=m) and not f do
                      if a[i]=b1[j]
                      then begin b2[j] := b2[j]+1;