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

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  <br>        b[i] := 1 
    else b[i] := 2; 
     writeln(b[i]);
      end;
end.

Comments

Ну.
Начало > Вносим массивы > в цикле проверяем каждый массив > если меньше 0, то изменяем значение на 1, иначе изменяем значение на 2> конец

---

Рисовать надо. А в комментариях этого нельзя делать

---

Можно было сделать через div и mod, тебе какой сложности нужна программа?

---

нет, спасибо большое и так помогли)

---

Дан массив В(20) , заменить в нем все отрицательные числа на 1, а положительные на 2,Мне бы еще с этой разбраться

---

поможете?

---

А можешь в контакте?

---

Тут тяжело думать

---

Или в личке. Т.к. зачем забивать эти комментарии к моему ответу.

---

давай, id97956554