ПЕР
  массив: РЯД 10 ИЗ ЦЕЛ;
  сч: ЦЕЛ;

УКАЗ
  ОТ сч := 0 ДО РАЗМЕР(массив) - 1 ВЫП
    ЕСЛИ массив[сч] > 0 ТО массив[сч] := 1
    АЕСЛИ массив[сч] < 0 ТО массив[сч] := 0
    КОН

// Программа и скриншот ее работы в приложениях.

const
    T_max=10;

var  
    i:byte;
    T:array[1..T_max]of integer;
   
begin
  writeln('Заполнение массива из ', T_max ,' элементов случайными данными');
 
  //начальные значения min и max
  for i:=1 to T_max do begin
    T[i]:=random(-79,79);// диапазон случайных чисел
    write(T[i]:6);
   
    if (T[i]<0) then
      T[i]:=0
    else if (T[i]>0) then
      T[i]:=1;
  end;

  writeln(); 
  writeln();
  writeln('Положительные элементы заменить единицами,отрицательные нулями ');
  writeln('Результат'); 
  for i:=1 to T_max do
    write(T[i]:6);
 
 end.