СРОЧНО!!30 баллов
В паскаль(цикл)
Последовательно вводится N целых чисел.найти количество отрицательных среди них

var m:array[1..30] of longint;schet1,i:longint;beginfor i:=1 to 30 dobeginread(m[i]);if m[i]<0 then  inc(schet1);end;writeln(schet1);end.