Лена в октябре ежедневно записывала показания температур в дневник наблюдений составьте программу, которая выводит количество дней с температурой меньше 0 градусов.
составьте компьютерную программу на языке Паскаль.

два варианта : с массивом и безс)var a:array[1..100] or integer;      n[коммент от автора: кол-во дней],k,i:integer;beginreadln(n) [коммент от автора: можно вручную записать если не дается];For i:=1 to n do  read(a[i]);k:=0;For i:=1 to n do  If a[i]<0 then  k:=k+1;writeln(k);end.БЕЗ МАССИВАvar n,k,c,i:integer;beginreadln(n);k:=0;For i:=1 to n do  begin  c:=0;readln(c);If c<0 then  k:=k+1;end;writeln(k);end.