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.