Помогите,пожалуйста необходимо написать программу в Паскале Вставить по одному элементу с...

Question

Помогите,пожалуйста
необходимо написать программу в Паскале
Вставить по одному элементу с заданным значением перед всеми отрицательными элементами массива.

Comments

да,необходимо использовать randomize ,да,именно это и нужно сделать

---

если он 1,то перед ним должно вставиться число,которое нам нужно

---

Так то оно так, я впаскале не слышал о динамическом добавлении ячеек в массив

---

Или вы имеете в виду поставить число в туже ячейку, но перед отрицательным числом.

---

Задача не особо все бъясняет

---

необходимо вставить число перед "-" элементом,заменяя стоящее сверху(над отрицательным числом)

---

Я может конечно тупой, но что значит "стоящее сверху". Это как?

---

Массив что, двумерный?

---

попробую объяснить иначе: например, массив 1 2 3 5 -7 2 ,вот число 5 должно замениться на нужное нам число

---

Так бы сразу

Answer 1

Var
  a:array[1..10] of integer;
  n,i:integer;
begin
  readln(n);
  for i:=1 to 10 do begin
    a[i]:=random(-10,10);
    if (a[i] < 0) and (i > 1) then begin
      if a[i-1] > 0 then a[i-1]:=n;
    end;
    if (a[i] < 0) and (i = 1) then write(n:3);
  end;
    for i:=1 to 10 do write(a[i]:3);
end.

Comments

большое спасибо)

---

))

Answer 2

Pascal ABC.............