Question

Составить программу паскаль: подсчитать количество положительных и количество отрицательных элементов массива

Answer 1

var
  N, i, c1, c2:integer;
  mas:array[1..9999] of integer;

begin
 readln(N);
 for i:=1 to N do
 begin
  readln(mas[i]);
  if mas[i]>0 then
   c1:=c1+1;
  if mas[i]<0 then
   c2:=c2+1;
 end;
 writeln('Положительных элементов: ', c1);
 writeln('Отрицательных элементов: ', c2);
end.