Имеютися данные о среднемесячной температуре за год. Определите самую высокую и самую низкую температуры. Сколько месяцев в году было теплых (температура выше 0) через массивы

Const N = 12;

const k = 0;

var temp : array [1 ... N] of integer;

i, min, max, count : integer;

begin

min : = 1000; max : = - 1000;

count : = 0;

{Заполнение массива данными}

for i : = 1 to N do

begin

write (i,'-й месяц: ') ;

readln (temp[i]) ;

if (temp[i] > max) then

max : = temp[i];

if (temp[i] < min) then

min : = temp[i];

{Если температура выше k - месяц считается теплым}

if (temp[i] > k) then

count : = count + 1;

end;

writeln ('Минимальная температура: ', min) ;

writeln ('Максимальная температура: ', max) ;

writeln ('Количество теплых месяцев: ', count) ;

readln;

end.