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

Question

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

Answer 1

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