Дано: равномерный массив А[n]

Найти количество отрицательных элементов массива

Const

n=16;

var

x:array[1 ... n] of integer;

i, k:integer;

begin

Randomize;

Writeln ('Элементы массива') ;

k:=0;

for i:=1 to n do

begin

x[i]:=Random (51) - 25;

Write (x[i]:4) ;

if x[i]<0 then Inc (k)

end;

Writeln;

Writeln ('Количество отрицательных элементов равно ', k) ;

end.

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

Элементы массива

3 - 14 - 7 15 10 12 - 11 - 13 - 21 - 13 13 - 17 9 - 7 - 24 20

Количество отрицательных элементов равно 9

J:=0;

For I:=1 to n do

If a[I]
j:=j+1;

writeln (j) ;

End.