Написать программу которая формирует одномерный массив  ( массив температур ) из n целых чисел и выводит количество отрицательных элементов ( дней в месяце ).
срочно

Pascal ABC срочно!

uses crt;var T: array [1..12] of real;i:integer;begin{Цикл ввода}for i:=1 to 12 dobeginWrite('Температура [',i:2,'] = ');readln(T[i]);end;writeln();{Поиск отрицательных элементов}Writeln('Отрицательные температуры');for i:=1 to 12 dobeginif T[i]<=0 thenWriteln(T[i]);end;Readln();end.