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

[Никол]

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

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

 

[Vladimir_S]

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

Легко:

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.