Даны следующие типы данных: type Date = record day : 1..31; mounth : 1..12; year : integer; end; Person = record SurnameName : s
Даны следующие типы данных: <span>type Date = record </span> <span>day : 1..31; </span> <span>mounth : 1..12; </span> <span>year : integer; </span> <span>end; </span> <span>Person = record </span> <span>SurnameName : string; </span> <span>Birthday : date; </span> <span>end; </span> <span>ListOfPeople = array [1..50] of person; </span>
<span>напишите программу, которая вводит с клавиатуры данные о n лицах(n<=50) и выводит на экран: </span> <span>фамилию и имя самого младшего человека</span>
Program Pro1; <span>type Date = record day : 1..31; mounth : 1..12; year : integer; end; Person = record SurnameName : string; Birthday : date; end; <span>ListOfPeople = array [1..50] of person; var</span></span> People: ListOfPeople; JoungHuman: Integer; i, JoungHumanIndex: Byte;<span> begin for i:=1 to 50 do begin</span> <span>Write('<span>Human '+IntToStr(i)+':') </span>Write('Input </span>Surname and <span>Name:') </span>ReadLn(People[i].SurnameName); Write('Input Birthday date(day, mounth, year)<span><span>:') </span>Read(People[i].</span>Birthday.day, People[i].Birthday.mounth, <span><span>People[i].Birthday.year); </span>end;