Zudina / KR_pascal / 4Array_vv

Program m1;

const
n=9;
var
k,i:byte;
c:array[1..n] of integer;
BEGIN

for i:=1 to n do
begin
write('‚ўҐ¤Ё ®зҐаҐ¤­®© н«Ґ¬Ґ­в ');readln(c[i]);
end;

k:=0;
for i:=1 to n do
if c[i]<0 then begin k:=k+1;end;

writeln('k=',k);








readln;
END.