Короткая задача ** массивы PASCAL, нужна помощь, пожалуйста!!!! "Найти все элементы...

Question

Короткая задача на массивы PASCAL, нужна помощь, пожалуйста!!!!
"Найти все элементы массива вещественных чисел a(30) меньшие 0"

Answer 1

c:=0;
for i := 1 to 30 do    
if A[i ] < 0 then c := c + 1;