На логическом составлю, потому что с бейсиком не знаком.
Раздел переменных
A: массив [1..N] из целых;
sum: целое;
начало
Для i= от 1 до N выполнять
начало
ввод A[i];
Если A[i] <0 тогда <br>начало
sum= sum + 1;
Вывод(A[i]);
конец;
конец;
Вывод("Количество отрицательных -",sum);
конец.