program PascalGuru;
uses crt;
type massiv=array[1..50] of integer;
var X,T: massiv;
    i,n:integer;
begin
write('kolichestvo elementov v massive X= ');  readln(n);
writeln('Vvedite elementy massiva:');
for i:=1 to n do begin
write('X[',i,']= '); readln(X[i]); end;
clrscr;
writeln('Vot vvedenye vami massiv X: ');
for i:=1 to n do write(X[i]:8,' ');
writeln;
writeln;
for i:=1 to n do
    begin
    if X[i]<0 then T[i]:=-1;
    if X[i]=0 then T[i]:=0;
    if X[i]>0 then T[i]:=1;
    end;
writeln('Massiv T: ');
for i:=1 to n do write(T[i]:8,' ');
readln;
end.