С 8 до 20 часов температура воздуха измерялась ежечасно, и результаты измерения…

Program temp; uses crt; vartem: array [8… 20] of real; min: real; i: integer; beginfor i: =8 to 20 do beginclrscr; writeln ('Vvedite temperaturu dlya ',i,' chasa zamera'); read (tem[i]); end; for i: =8 to 20 do if tem[i]<0 then min: =i; writeln ('Vpervue otricatelnaya temperatura otmechena v ',min); readln; end.