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

Const

N = 30;

Var

T:array[1 ... N] of integer;

i, k:integer;

Begin

Write ('Температура в течение месяца:') ;

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