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

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