Вмассиве из 10 целочисленных элементов, отрицательные элементы заменить на 0, а положительные на 1
паскаль

var a:array [1..10] of integer;

i:integer;

begin

write ('Массив ');

for i:=1 to 10 do

begin

a[i]:=random(19)-9;

write(a[i]:3)

end;

writeln;

write ('Массив ');

for i:=1 to 10 do

begin

if a[i]<0 then a[i]:=0;

if a[i]>0 then a[i]:=1;

write(a[i]:3)

end;

end.