program tempArray; uses wincrt;
type
   tempDagType = array[0..23] of byte;
var
   temp: tempDagType;
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
   temp[ 0]:=12; temp[ 1]:=12; temp[ 2]:=11; temp[ 3]:=11;
   temp[ 4]:=10; temp[ 5]:=11; temp[ 6]:=13; temp[ 7]:=14;
   temp[ 8]:=15; temp[ 9]:=18; temp[10]:=19; temp[11]:=19;
   temp[12]:=20; temp[13]:=22; temp[14]:=23; temp[15]:=22;
   temp[16]:=22; temp[17]:=21; temp[18]:=21; temp[19]:=19;
   temp[20]:=18; temp[21]:=17; temp[22]:=16; temp[23]:=14;

   writeln('Gemiddelde temperatuur = ', gemiddelde(temp):4:2)
end.