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

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.