Question

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

Answer 1

for i:=1 to 10 do
   if A[i]<k then otr:=otr+1;
writeln('Отрицательных чисел = ',otr);