Составьте программу,соответствующую блок-схеме:

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