Дан массив из 15 целых чисел. Вставить в данный массив после третьего элемента число,...

Question

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

Comments

паскаль

---

вставить вплане 4 елемент заменить или именно добавить?

---

заменить

---

вывод нужен?

---

да

---

массив заполнять рандом значениями? или просить их ввести?

---

рандом

---

После третьего элемента идет четвертый)) Надо ли это понимать так, что просто требуется содержимое пятого элемента скопировать в четвертый?

---

Вообще-то "вставить" - это не скопировать, а именно вставить. Например, вставить в слово букву "п" перед буквой "о".

---

Но если вставлять, массив станет на 1 элемент больше.

Answer 1

program task;

type

  int_array = array[1..15] of integer;

var

array : int_array ;

i : integer;

begin

randomize;

for i:=1 to 15 do

 begin

 array[i]:=random(20);

 end;

writeln('Третий элемент массива до замены : ',array[2]);

array[2]:=array[4];

writeln('Третий элемент массива после замены : ',array[2]);

end.

Comments

Занятно. Пишете про третий и пятый элементы, массив индексирован от единицы, а копируете четвертый элемент во второй.

---

давно паскалем не увлекался, забыл :\