program Project1;
uses
SysUtils;
type TDate = record
Year : integer;
Month : string[10];
Number : integer;
end;
var MDate : array of TDate;
i, n, f : integer;
k : integer=0;
begin
write('Enter number of Rec: ');
readln(n);
SetLength(MDate, n);
for i:=1 to n do
begin
writeln;
write('Enter Year: ':14);
readln(MDate[i].Year);
write('Enter Month: ':14);
readln(MDate[i].Month);
write('Enter Number: ');
readln(MDate[i].Number);
end;
writeln;
write('Enter Year for search: ');
readln(f);
for i:=1 to n do
if MDate[i].Year=f then
begin
writeln('Response ', MDate[i].Number, '.', MDate[i].Month, '.', MDate[i].Year);
inc(k);
end;
if k=0 then
writeln('Not enough set');
readln;
end.
Рис.5.1-2 Програма в процесі виконання
3. Визначте кількість подій, які відбулися у березні. Впорядкуйте події в хронологічному порядку.
