Задан массив целых чисел изт10 элементов. Положительные элементы заменить единицами,отрицательные нулями

А норм написать можешь?

Это как?

Чтобы скопировать и сразу в Паскаль

Так для этого надо было писать на Паскале.

// Программа и скриншот ее работы в приложениях.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.