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