Program PascalGuru;
uses crt;
 
var i,n:integer;
    A:array [1..100] of real;
    min,max:real;
 
 
begin
write('Vvedite N: '); readln(n);
writeln('Vvedite ',n,' cisel:');
 
for i:=1 to n do
    begin write(i,': ');  readln(A[i]); end;
 
clrscr;
 
writeln('Vvedennye chisla:');
for i:=1 to n do write(A[i]:8:2);
{------------------------------------------}
for i:=1 to n do
if A[i]<0 then begin max:=A[i]; break; end;
 
for i:=1 to n do
if A[i]<0 then
if A[i]>max then max:=A[i];
{------------------------------------------}
for i:=1 to n do
if A[i]>0 then begin min:=A[i]; break; end;
 
for i:=1 to n do
if A[i]>0 then
if A[i]<min then min:=A[i];
{------------------------------------------}
 
 
writeln;writeln;
writeln('MAX(-): ', max:0:2);
writeln('MIN(+): ', min:0:2);
 
readln;
end.