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

Program mass;

var

A: array [1 ... 100] of integer;

i: integer;

begin

randomize;

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],' ');

readln

end.