Question

Имеются сведения о датах рождения сотрудников учреждения.
а) Определить самого молодого сотрудника.
б) Определить самого старшего сотрудника.
в) Получить список всех сотрудников, родившихся весной.

Answer 1

а) Определить самого молодого сотрудника.
const mi = 20;
type chel = record
              family: string; //фамилия
              age: integer    //возраст
            end;
var i, kol, min: integer;
    ch: array [1..mi] of chel;
Begin
  //ввод количества сотрудников c проверкой диапазона
  repeat
    write('Количество сотрудников (1..', mi, ')? ');
    readln(kol)
  until kol in [1..mi];
  //ввод информации о сотрудниках
  for i := 1 to kol do
    begin
      writeln('Сотрудник ',i);
      write('Фамилия: ');
      readln(ch[i].family);
      write('Возраст: ');
      readln(ch[i].age)
    end;
  //определяем младшего
  min := 1; //будем пока младшим считать самого первого
  //цикл по остальным сотрудникам, если находится моложе, считаем его младшим
  for i := 2 to kol do if ch[i].age < ch[min].age then min := i;
  write('Младший среди сотрудников: ', ch[min].family);
  readln
End.