Технический форум - Помогите, пожалуйста, с массивом

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Помогите, пожалуйста, с массивом (http://www.tehnari.ru/f41/t86636/)

Помогите, пожалуйста, с массивом

Есть массив a:array[1..n] of integer, помогите пожалуйста составить часть программы: нужно удалить все элементы этого массива, расположенные между элементами под номерами Р и К, при это под удалением 1 элемента понимать исключение элемента путем смещения всех следующих за ним элементов влево на 1 позицию и присвоение последнему эл-ту значения 0.
Заранее благодарю.

Цитата:

Сообщение от Никол (Сообщение 884288)

Легко:

Код:

Const

 Nmax=100;

Var

 A:Array[1..Nmax] of Integer;

 N,P,K,i,q:Byte;

Begin

 Write('N= ');

 Readln(N);

 Randomize;

 For i:=1 to N do

  begin

   A[i]:=Random(100);

   Write(A[i]:4);

  end;

 Writeln;

 Writeln;

 Write('P= ');

 Readln(P);

 Write('K= ');

 Readln(K);

 Writeln;

 i:=0;

 Repeat

  for q:=K-i to N-i do A[q-1]:=A[Q];

  A[N-i]:=0;

  Inc(i);

 Until K-i=P+1;

 For i:=1 to N do Write(A[i]:4);

 Readln

End.