Untitled

{1-24}
program temperatuurid;
type arvutyyp=array[1..31] of integer;
var paevad:arvutyyp;
    kuunimi:string;
    paevi,i,temp,suurim1,suurim2:integer;
    liigaasta:char;

begin

i:=0;
write('Sisesta kuu nimi: ');
readln(kuunimi);
write('Kas tegu on liigaastaga? (j/e): ');
readln(liigaasta);

{Pannakse paika päevade arvud iga kuu kohta.}
if kuunimi='jaanuar' then
        paevi:=31;
if kuunimi='veebruar' then
   begin
      if liigaasta='j' then
         paevi:=29;
      if liigaasta='e' then
         paevi:=28;
   end;
if kuunimi='m„rts' then
        paevi:=31;
if kuunimi='aprill' then
        paevi:=30;
if kuunimi='mai' then
        paevi:=31;
if kuunimi='juuni' then
        paevi:=30;
if kuunimi='juuli' then
        paevi:=31;
if kuunimi='august' then
        paevi:=31;
if kuunimi='september' then
        paevi:=30;
if kuunimi='oktoober' then
        paevi:=31;
if kuunimi='november' then
        paevi:=30;
if kuunimi='detsember' then
        paevi:=31;

{Massiivi "paevad" sisestatakse temperatuure iga päeva kohta.}
for i:=1 to paevi do
    begin
         write('Sisesta ',i,' päeva temperatuur: ');
         readln(temp);
         paevad[i]:=temp;
    end;

{Leitakse kuu esimese poole kõrgeim temperatuur.}
suurim1:=paevad[1];
suurim2:=paevad[16];
for i:=1 to 15 do
    begin
         if paevad[i]>suurim1 then
            suurim1:=paevad[i];
    end;
{Leitakse kuu teise poole kõrgeim temperatuur.}
for i:=16 to paevi do
    begin
         if paevad[i]>suurim2 then
            suurim2:=paevad[i];
    end;
{Võrreldakse kahte kõrgemat temperatuuri ja selgitatakse kumb oli suurem või olid nad hoopis võrdsed.}
if suurim1>suurim2 then
        begin
                writeln('Kuu esimesel poolel oli kärgeim temperatuur suurem.')
        else
                begin
                        if suurim1=suurim2 then
                                writeln('Kärgemad temperatuurid olid värdsed.')
                else
                        writeln('Kuu teisel poolel oli kärgeim temperatuur suurem.');
                end;
        end;


readln;
end.