ПТ
Просто Толик
Вот пример:
program Desicion;
const
n = 7;
var
a: array[1..n] of integer;
i, c: integer;
begin
c := 0;
for i := 1 to n do
begin
write('Введите значение ', i, '-го числа: ');
readln(a[i]);
if (a[i] < 0) then
inc(c);
end;
write('Количество отрицательных чисел: ', c);
readln();
end.