Question

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

Answer 1

var  b: array[1..20] of integer; 
i: integer;
begin
    //тут пишите свой массив 
b[1]:=-5;
  b[2]:=0;
  b[3]:=10;
  i:=1; 
 for i := 1 to 20 do 
   begin
      if b[i]<0 then 
        b[i] := 1 
    else b[i] := 2; 
     writeln(b[i]);
      end;
end.