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

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

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

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.