Решите по информатике в программе паскаль, . в массиве а(5) посчитать кол-во положительных и кол-во отрицательных чисел.

var

  A : Array [1..5] of Integer;

  i, e, k  : Integer;

begin

  e := 0;

  k := 0;

  // Здесь задаешь массив

for i := 1 to 5 do

  if A[i] >= 0 then inc(e) else inc(k);

Writeln('Положительных ', i)

Writeln('Отрицательных', i) 

end.