Verified answer

var A:array[1..5] of real;

   i, n_neg, n_pos: integer;

begin

   n_neg := 0;

   n_pos := 0;

   for i := 1 to 5 do

      readln(A[i]);

   for i := 1 to 5 do

      if (A[i] < 0) then

         inc(n_neg)

      else if (A[i] > 0) then

         inc(n_pos);

   writeln('Positives: ', n_pos, ', negatives: ', n_neg)

end.

Verified answer

var a:array[1..5]of longint;

i,k,k1:longint;

begin

for i:=1 to 5 do

read(a[i]);

for i:=1 to 5 do

begin

if a[i]<0 then k1:=k1+1;

if a[i]>0 then k:=k+1;

end;

writeln('otricatelnyh=',k1,'polojitelnyh',k);

end.