Пусть дан массив, содержащий даты. каждая дата – число, месяц, год. найти все весенние даты.использование комбинированного и множественного типа.pascal.
// PascalABC.NET 3.0, сборка 1076 const n=20; { количество дат } type TDate=record d:1..31; m:1..12; y:word end; var dates:array[1..n] of TDate; i:byte; s,st:string;
begin Randomize; for i:=1 to n do begin s:=''; With dates[i] do begin d:=Random(27)+1; Str(d,st); if Length(st)=1 then st:='0'+st; s:=s+st+'.'; m:=Random(12)+1; Str(m,st); if Length(st)=1 then st:='0'+st; s:=s+st+'.'; y:=Random(51)+1960; Str(y,st); s:=s+st; if m in [3..5] then s:=s+' - весенняя'; Writeln(s) end end end.
