Помогите решить задачу: в массиве хранится информация о среднедневной температуре декабря. Составьте программу, которая подсчитывает, сколько в декабре было дней с нулевой, отрицательной и положительной температурой. Даю 22 балла.

Program temp_dek;
uses crt;
Var
i,n,k,l:integer;
mA: array[1..31] of real;
begin
ClrScr;
n:=0;
k:=0;
l:=0;
for i:=1 to 31 do
begin
Write(Введите среднедневную температуру , i, января: );
Read(mA[i]);
if mA[i]>0 then n:=n+1;
if mA[i]<0 then k:=k+1;
if mA[i]=0 then l:=l+1;
end;
writeln(Дней с отрицательной температурой: ,k);
writeln(Дней с нулевой температурой: ,l);
writeln(Дней с положительной температурой: ,n);
readln;
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.