задание вот какое

[Fryg]

Подсчитайте количество морозных дней (когда температура ниже -20 град.).


вот код

var a   :array [1..7] of real;
    i,n :integer;
begin
    for i:=1 to 7 do readln(a[i]);
     n:=0;
      if a[i]<-20 then n:=n+1;
 writeln('Количество дней с температурой меньше -20' ,n);
 readln;
end.

не могу понять что в нем неправильно..... он мне постоянно выводит 0

[Hacker19_90]

var a   :array [1..7] of real;
    i,n :integer;
begin
    n := 0;
    for i:=1 to 7 do
    begin 
        readln(a[i]);
        if a[i]<-20.0 then Inc(n);
    end;
    writeln('Количество дней с температурой меньше -20' ,n);
    readln;
end.

[_-Re@l-_]

В нём неправильно то, что вы забыли, что такое составной оператор.
Вот правильный код

var 
    a : array [1..7] of real;
    i , n  : integer;
begin
        n:=0;
        for i:=1 to 7 do 
        begin
                readln(a[i]);
                if a[i]<-20 then n:=n+1;
        end;
        writeln('Количество дней с температурой меньше -20' ,n);
        readln;
end.

Чёрт, не успел

[Fryg]

о спасибочки..... бло почти правильно... оббидно...