Дан массив действительных чисел, размерность которого n. подсчитайте, сколько в нём отрицательных, положительных и нулевых элементов.

//pascalabc.net 3.2 сборка 1318 var   n,i,flag: integer;   function fact(n: integer): integer; begin   if n=0 then fact: =1 else fact: =fact(n-1)*n; end;   begin readln(n); n: =fact(n); flag: =0; for i: =1 to (n div 3)+2 do   if i*(i+1)*(i+2)=n then     begin       flag: =1;       writeln(n,'=',i,'*',i+1,'*',i+2);     end; if flag=0 then writeln('невозможно'); end. пример ввода: 6 пример вывода: 720=8*9*10

//решение почти правильное.

//ошибка только в цикле for i : = 1 to n do

//цикл должен проверять до n - 1, т.к. в массиве из n

//элементов пар соседних элементов не может быть

//больше n - 1, например массив из 3 чисел

//1 2 3; пары : 1 2 и 2 3.

const

  n = 20;

var

  a: array[1..n]of integer;

  i, j, k: integer;

begin

  k : = 0;

  for i : = 1 to n do

    readln(a[i]);

  for i : = 1 to n - 1 do

  begin

    if (a[i] mod 2 = 0) and (a[i + 1] mod 2 = 0) then k : = k + 1;

  end;

  writeln(k);

end.