program p1;
var
n : integer;
K : integer;
c : array of integer;
begin
write('ввести число элементов массива n = ');
readln(n);
c := new integer[n];
for var i := 1 to n do begin
write('ввести элемент массива c[', i, '] = ');
readln(c[i-1]);
end;
K := 0;
for var i := 1 to n do begin
if c[i-1] < 0 then K := K+1;
end;
writeln('К = ', K);
end.
Объяснение:
протестировано в PascalABC.NET
