робота с массивами записей(паcкаль)

[sashabiko]

Определите среднюю температуру в данной области за данный месяц. Отображение списка областей, где в данный день выпали осадки. Дайте сертификат погоды в данном месте в указанную дату.

program primer; 
type prognoz=record 
   loc: string[45]; 
   dat: string[8]; 
   tempden: string[50]; 
   tempnoch: string[50];
   vitershvud: string[3];
   viternapr: string[50];
   snig: 1..2;
   doshd: 1..2;
   end;
var day: array [1..5] of prognoz; 
   I: integer; 
   k: integer; 
begin 
   for I:=1 to 5 do 
   begin 
      writeln ('Введите введомости о ', I , '-м дне'); 
      write ('Введите локацию: '); 
      readln (day[I].loc); 
      write ('Введите дату: '); 
      readln (day[I].dat); 
      write ('Введите температуру днем: '); 
      readln(day[I].tempden);
      write ('Введите температуру ночью: '); 
      readln(day[I].tempnoch); 
      write ('Введите скорость  ветра: '); 
      readln (day[I].vitershvud); 
      write ('Введите направление ветра: '); 
      readln (day[I].viternapr);
      write ('Осадки дождь: 1- да, 2-нет '); 
      readln (day[I].doshd);
      write ('Осадки снег: 1- да, 2-нет '); 
      readln (day[I].snig);
   end; 
   writeln ('Введение закончено'); 
   writeln ; 
  for I:=1 to 5 do 
    begin
      if day[I].snig=1 then
      writeln ('локация: ',day[I].loc); 
      writeln ('Дата: ',day[I].dat);
    end;
 
end.

[digitalis]

Отлично. Зачёт. Нашёл где-то прогу, в которой упоминается погода - и сделайте мне из неё то, что надо. При здесь чём день, ночь, ветер ?
Помогаю. Структура видится такая:

type weather=record 
   region: string[45]; 
   t: array [1..31] of integer ;
   end;
const N=10 ; // число областей
var
    mas_t: array [1..N] of weather ;

......
Заполнение и последующй поиск - вложенные циклы: по областям и по дням.
------------------
Хитрожёлтенькие пошли студенята: требуете показать код - нате. А что он не из той оперы и не сам его писал - так никто и не обещал, что ...