Дан массив В(20) , заменить в нем все отрицательные числа на 1, а положительные на 2.

Program mass;varA: array [1..100] of integer;i: integer;beginrandomize;for i:=1 to 20 do A[i]:=1000-random(2000)+1; {Таким образом получится задать и положительные и отрицательные числа в диапазоне от -1000 до 1000}for i:=1 to 20 do begin if A[i]<0 then A[i]:=1; if A[i]>0 then A[i]:=2; end;for i:=1 to 20 do write(a[i],\' \');readlnend.