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

Question

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

Answer 1

Два варианта : с массивом и без

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

БЕЗ МАССИВА
var n,k,c,i:integer;
begin
readln(n);
k:=0;
For i:=1 to n do
  begin
  c:=0;
readln(c);
If c<0 then<br>  k:=k+1;
end;
writeln(k);
end.