Определить: фамилию самого младшего по возрасту человека среди военнообязанных - Pascal ABC

Формулировка задачи:

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

Решение задачи: «Определить: фамилию самого младшего по возрасту человека среди военнообязанных»

Листинг программы

type date = record
    surname: string;
    slujba:string;
    age:Integer;
  end;
 
var
a:array[1..10] of date;
i,number,min:Integer;
begin
min:=0;
for i:=1 to 10 do
 begin
   if (a[i].slujba='да') and (min>a[i].age) then
   begin
     min:=a[i].age;
     number:=i;
   end;
 end;
 Writeln(a[number].surname)   ;
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Pascal ABC. Он представляет собой структуру данных, которая называется тип даты. Эта структура содержит три поля: фамилия (surname), должность (slujba) и возраст (age). Далее, объявляются переменные min, i и number. Переменная min инициализируется значением 0. Переменная i используется для цикла, который будет выполняться от 1 до 10. Внутри цикла проверяется условие: если запись в массиве с индексом i имеет поле slujba равное да и её возраст больше значения переменной min, то значение min обновляется, а переменная number получает значение i. После завершения цикла, выводится фамилия записи с минимальным возрастом, используя переменную number. Таким образом, данный код позволяет определить фамилию самого младшего по возрасту человека среди военнообязанных, основываясь на данных, хранящихся в массиве.