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

Question

Информатика

Май

30 октября, 19:58

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

+1

Ответы (1)

Знаете ответ?

Киря · Answer 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;