uses crt;
type tmasi=array[1..100] of integer;
var a:tmasi; pos1,pos2,n,i:byte; buf:longint;
begin
writeln('razmernost');
readln(n);
for i:=1 to n do
begin
writeln('Vvedite ',i,' element massiva');
readln(a[i]);
end;
pos1:=0;
for i:=1 to n do
if a[i]>0 then begin pos1:=i;break;end;
pos2:=0;
for i:=1 to n do
if a[i]<0 then pos2:=i;
if (pos1=0) then begin writeln('Vse otr');exit;end
else if pos2=0 then begin writeln('Vse polojitelnie');exit;end;
buf:=a[pos1];
a[pos1]:=a[pos2];
a[pos2]:=buf;
writeln('New massiv');
for i:=1 to n do
write(a[i],',');
readln;
end.