Дан целочисленный массив А(а1...аn). Нужно получить массив В изменяя массив А так,чтобы все отрицательные числа в массиве В были равны 0,а все положительные 1.
Ответ
Автор - Alex924
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;