а) Определить самого молодого сотрудника.
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.
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.