Question

Подсчитать количество положительных отрицателтных нулевых элементов массива (v1,)

Answer 1

Const
  n = 90;

var
  v: array[1..n] of integer;
  i, e, nn, np, nz: integer;

begin
  Randomize;
  nn := 0; np := 0;
  for i := 1 to n do
  begin
    e := Random(25) - 12;
    v[i] := e;
    if e > 0 then np := np + 1
    else if e < 0 then nn := nn + 1;
  end;
  nz := n - np - nn;
  writeln('Число элементов в массиве: отрицательных- ', nn, ', нулевых- ', nz,
      ' положительных- ', np);
end.

Тестовое решение:

Число элементов в массиве: отрицательных- 38, нулевых- 6 положительных- 46

Answer 2

PascalABC.NET

var
  v:array[1..90]of integer;
  i,otr,pol,n:integer;
begin
for i:=1 to 90 do
  begin
  v[i]:=random(-10,10);
  write(v[i],'; ');
  if v[i]<0 then otr:=otr+1;
  if v[i]>0 then pol:=pol+1;
  if v[i]=0 then n:=n+1;
  end;
writeln;
writeln('Положительных: ',pol); 
writeln('Отрицательных: ',otr);
writeln('Нулевых: ',n);     
end.