Помогите с задачкой на Паскале

[nik542]

Помогите с задачкой на Паскале

1)))Дан массив записей, содержащий различные даты. Каждая дата представлена записью из трех полей: число, месяц и год. Определить самую позднию лению дату.

спс за помощ))) желательно ответ с блок схемой отправить на nikolaj-t@mail.ru


П.С. на :cx: паскале!)

 

[Vladimir_S]

самую позднию лению дату

Какую, простите, дату?

 

[nik542]

блин даже незнаю как сказать...=)):tehnari_ru_281:
короч там надо вводить несколько дат( число месяц год ) а он потом выдает самую позднию..... я ващщще ничего в этом несмыслю))):tehnari_ru_250: а ссесию здавать надо..... ( на эконом. учуся:tehnari_ru_657: )))

 

[Vladimir_S]

я ващщще ничего в этом несмыслю

Угу. Равно как, я вижу, и в родном языке. Бедная, бедная Россия, у руля которой встанут такие, короч ващщще, экономы. Здадут ее, несчастную, в утиль. Поскольку несмыслят. Ващщще. Ох, ну да ладно:

TYPE
 Dt=Record
     Year:Word;
     Month:Byte;
     Date:Byte;
    End;
VAR
 DD:Array[1..100] of Dt;
 i,Max_Month,Max_Date,N:Byte;
 Max_Year:Word;
BEGIN
 Write('Enter the number of dates: ');
 Readln(N);
 For i:=1 to N do
  with DD[i] do
   begin
    Write('Year = ');
    Readln(Year);
    Write('Month (1..12) = ');
    Readln(Month);
    Write('Date (1..31) = ');
    Readln(Date);
    Writeln;
   end;
 Max_Year:=0;
 For i:=1 to N do
  If DD[i].Year>Max_Year then Max_Year:=DD[i].Year;
 Max_Month:=0;
 For i:=1 to N do
  If (DD[i].Year=Max_Year) and
     (DD[i].Month>Max_Month) then Max_Month:=DD[i].Month;
 Max_Date:=0;
 For i:=1 to N do
  If (DD[i].Year=Max_Year) and
     (DD[i].Month=Max_Month) and
     (DD[i].Date>Max_Date) then Max_Date:=DD[i].Date;
 WriteLn('The latest date is ',Max_Date,'.',Max_Month,'.',Max_Year);
 Readln
END.