Dze je subor www.TrSek.com/cover/lizal_okurek/teploty2.pas{ TEPLOTY.PAS Copyright (c) Miroslav Lízal, Tomáš Okurek }
{ Program pre vypocet priemernej teploty zo zadanych hodnot. }
{ }
{ Datum:25.02.2002 http://www.trsek.com }
program teplotni_analyza;
uses crt;
var n,i1,i2,p,t,tkles,tmax,klesani,tmin,dennejnit:integer (* n-pocet dni, i-kolikrat p-pmereni*);
for i1:=1 to n do begin
writeln('Zadavejte hodnoty pro',i1,'. den');
write('Zadejte teplotu: ');
readln(t);
tkles:=t;
tmax:=t;
klesani:=0;
if i1=1 then tmin:=t;
for i2:=1 to p-1 do begin
write('Zadejte teplotu: ');
read(t);
if t>tmax then tmax:=t;
if tkles>t then klesani:=klesani+1;
if t<tmin then dennejnit:=i1;
tkles:=t;
end;
writeln;
writeln('Maximalni teplota je ',tmax);
writeln('Teploty klesaly',klesani,' krat');
writeln;
end;
write('Nejnizsi teploty byli namereny ',dennejnit,'. den');
end.