Задача по информатике: Информация о температуре воздуха за месяц задана в виде массива. Определить сколько раз температура опускалась ниже 0 градусов.

Const   N = 30;Var   T:array[1..N] of integer;   i,k:integer;BeginWrite('Температура в течение месяца:');k:=0;For i:= 1 to N do    Begin    T[i]:=random(20)-15;    Write(' ',T[i]);    if T[i] < 0 then k:=k+1;    End;WriteLn;WriteLn('Количество дней, когда температура опускалась ниже нуля: ',k);End.Пример работы программы:Температура в течение месяца: -3 -5 -4 1 -11 -5 0 2 2 4 3 -6 -7 -4 -14 -11 -15 -14 -15 0 -7 -14 -13 -13 -12 -1 -3 -13 -15 -5Количество дней, когда температура опускалась ниже нуля: 23