С клавиатуры вводится среднесуточная температура за октябрь…

program a1; uses crt; var a: array[1… 31] of longint; k,i: integer; begin clrscr; for i: =1 to 31 do begin write ('Введите температуру ',i,' числа: '); readln (a[i]); if a[i]<0 then k: =k+1; end; writeln (' Количество дней в которые были заморозки=', k); readlnend. P.S. Если паскаль ABC, то выделенное писать не обязательно