В одномерном массиве А (10) вычислить количество отрицательных элементов, меньших чем k.

Program n1;

var a: array[1 ... 10] of integer;

k, kol, i: integer;

begin

randomize;

write ('k=');

readln (k);

kol:=0;

write ('исходный массив: ');

for i:=1 to 10 do

begin

a[i]:=random (21) - 10;

write (a[i],' ');

if (a[i]<0) and (a[i]
end;

writeln;

writeln ('кол-во эл меньше ', k,': ', kol);

end.