Question

дан целочисленный массив из 30 элементов.Вывести количество отрицательных,положительных и равных нулю элементов(массив записать в 1.txt)

Answer 1

program i5;
var
  s,d,r,i: integer;
  a:array [1..30] of integer;
begin
  for i:=1 to 30 do
        readln(a[i]);
  s:=0;
  d:=0;
  r:=0;
  for i:=1 to 30 dot
       begin
           if a[i]<0 then
                s:=s+1;
           if a[i]>0 then
                 d:=d+1;
           if a[i]=0 then
                 r:=r+1;
          end;
     writeln(s,'_',d,'_',r);
end.