Ответы и объяснения

2013-12-16T14:59:53+00:00
Var a,b:array [1..10000] of integer; k,n:integer;
begin
read(n);
for k:=1 to n do begin
read(a[k]); if (a[k])<0 then b[k]:=a[k];
end;
for k:=1 to n do write b[k];
end.