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

                                         197

       readln(n);
       for i:=1 to n do
       begin write('Введите имя и дату рождения жителя ',
                      'в формате: имя ггггммдд ');
               read(a[i],b[i])
       end;
       for i:=1 to n-1 do
       for j:=i+1 to n do
               if b[i]>b[j]
               then begin r := a[i]; a[i] := a[j]; a[j] := r;
                                r1 := b[i]; b[i] := b[j]; b[j] := r1;
                       end;
       writeln('Результаты работы: ');
       for i:=1 to n do
               writeln(a[i],' ',b[i]);
   end.
   Пример 11.59. В одномерный массив Незнайка записал цвет глаз всех жителей
Цветочного города. Написать программу, определяющую, какой цвет глаз у
жителей города встречается чаще всего.
   Решение. Для решения задачи просматриваем исходный массив.
Обнаруженный цвет глаз выписываем во вспомогательный массив, если его там
нет, или прибавляем единицу к соответствующему цвету, если он там есть. Пусть,
например, в некоторый момент времени состояние таково (стрелкой указан
обрабатываемый элемент):




      Массив «Цвет»      Вспомогательный Вспомогательный
                                 массив 1             массив 2
      ----------------   -------------------- ----------------------
      1 Голубые          Голубые                      2
      2 Карие            Карие                1
      3 Голубые
      4 Зеленые Õ
      5 Зеленые
      6 Голубые
   Просматриваем вспомогательный массив 1, не обнаруживаем там зеленого
цвета, поэтому записываем его. Во вспомогательный массив 2 в соответствующий
элемент записываем 1. Изменившееся состояние таково:
      Массив «Цвет»      Вспомогательный Вспомогательный
                                 массив 1             массив 2
      ----------------   -------------------- ----------------------