Дан целочисленный массив А(а1...аn). Нужно получить массив В изменяя массив А так,чтобы все отрицательные числа в массиве В были равны 0,а все положительные 1.

i: integer;
a: array [0..100] of integer;
b: array [0..100] of integer;

for i:=0 to 100 do begin
  if A[i]<0 them b[i]:=0
  else b[i]:=1; 
end;