Напишите программу, которая по заданному вектору X формирует целочисленный вектор T, состоящий из знаков элементов вектора X — Pascal(Паскаль)

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.

Leave a Comment