Данные по температуре воздуха за декаду ноября хранятся в массивеюопределить,сколько раз температура опускалась ниже "-10" градусов.заполнение массива осуществить с клавиатуры.

Program Pr1;
uses crt;
var mas:array[1..30] of integer;
i,p:integer;
Begin
clrscr;
for i:=1 to 30 do begin
writeln('T za ',i,' den');
readln(mas[i]);
end;
p:=0;
for i:=1 to 30 do if mas[i]<-10 then p:=p+1;
writeln(p);
end.