Массивы

[Bleize]

Удалить последний элемент равный 0. Добавить после элемента массива с заданным индексом элемент со значением 100.

[Bleize]

P.S. При выполнении работы используются статические массивы. Для организации статических массивов с псевдопеременными границами необходимо объявить массив достаточно большой длины N. Затем пользователь вводит реальную длину массива (не больше N) и работает с массивом той длины, которую он сам указал. Остальные элементы (хотя память под них и будет выделена) не рассматриваются. При уменьшении или увеличении длины массива необходимо изменять его реальную длину.

[Mad_Cat]

Удалить последний элемент равный 0.

i:=n;
while a[i]<>0 do dec(i);
for k:=i to n-1 do
a[k]:=a[k+1]
n:=n-1;

Добавить после элемента массива с заданным индексом элемент со значением 100.

readln(k);
n:=n+1;
for i:=n downto k+2 do
a[i]:=a[i-1];
a[k+1]:=100;

c++(microsoft visual studio 2008)

телепатов у нас нет ) но перевести вам самому труда не составит наверное)

[Bleize]

c++(microsoft visual studio 2008)