program tempWeekArray; uses wincrt;
type
   tempDagType = array[0..23] of byte;
   tempWeekType = array[1..7] of tempDagType;
var
   tempWeek: tempWeekType;
function gemiddelde(a: tempDagType): real;
   var
      i, som: integer;
   begin
      i:=0;
      som:=0;
      repeat
         som:=som+a[i];
         i:=i+1
      until i>23;
      gemiddelde:=som/24
   end;
begin
   {maandag}
   tempWeek[1][ 0]:=12; tempWeek[1][ 1]:=12; tempWeek[1][ 2]:=11; tempWeek[1][ 3]:=11;
   tempWeek[1][ 4]:=10; tempWeek[1][ 5]:=11; tempWeek[1][ 6]:=13; tempWeek[1][ 7]:=14;
   tempWeek[1][ 8]:=15; tempWeek[1][ 9]:=18; tempWeek[1][10]:=19; tempWeek[1][11]:=19;
   tempWeek[1][12]:=20; tempWeek[1][13]:=22; tempWeek[1][14]:=23; tempWeek[1][15]:=22;
   tempWeek[1][16]:=22; tempWeek[1][17]:=21; tempWeek[1][18]:=21; tempWeek[1][19]:=19;
   tempWeek[1][20]:=18; tempWeek[1][21]:=17; tempWeek[1][22]:=16; tempWeek[1][23]:=14;
   {dinsdag}
   tempWeek[2][ 0]:=13; tempWeek[2][ 1]:=11; tempWeek[2][ 2]:=10; tempWeek[2][ 3]:=10;
   tempWeek[2][ 4]:=10; tempWeek[2][ 5]:=12; tempWeek[2][ 6]:=14; tempWeek[2][ 7]:=14;
   tempWeek[2][ 8]:=16; tempWeek[2][ 9]:=19; tempWeek[2][10]:=21; tempWeek[2][11]:=21;
   tempWeek[2][12]:=21; tempWeek[2][13]:=24; tempWeek[2][14]:=25; tempWeek[2][15]:=24;
   tempWeek[2][16]:=23; tempWeek[2][17]:=20; tempWeek[2][18]:=22; tempWeek[2][19]:=21;
   tempWeek[2][20]:=19; tempWeek[2][21]:=18; tempWeek[2][22]:=17; tempWeek[2][23]:=15;
   {de rest moet nog ingevuld worden...}

   writeln('Maandag om 12:00 was het ', tempWeek[1,12], ' graden C');
   writeln('Dinsdag om 12:00 was het ', tempWeek[2,12], ' graden C');
   writeln('Maandag was de gemiddelde temperatuur = ', gemiddelde(tempWeek[1]):4:2, ' graden C');
   writeln('Dinsdag was de gemiddelde temperatuur = ', gemiddelde(tempWeek[2]):4:2, ' graden C')
end.