Ti = 1, если Xi > 0; Ti = 0, если Xi = 0; Ti = -1, если Xi < 0
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.