Помогите решить задачку пожалуйста

[Никитка89]

Помогите решить задачку пожалуйста
Pascal Дан одномерный массив числовых значений, насчитывающий N элементов. Исключить из него M элементов, начиная с номера K

[_Dmitry]

Ну, и в чем проблема?
[K+M] пишешь на место [K], [K+M+1]->[k+1], [K+M+2]->[K+2] и т.д. до [N]

[Никитка89]

я вообще чайник ничего не знаю и препод ничего не обьясняет говорит только делай сам . если можешь напиши мне алгоритм пожалуйста

[_Dmitry]

 for i:=0 to N-K-M do
   a[K+i]:=a[K+M+i];

[KronGD]

Это выглядит так...

var
a : array [1..100] of integer;
i,n,m,k : integer;

BEGIN
readln(n,m,k);
if (k+m > n) then m:=n-k+1; { protect from out of range }

{ manual input of array }
{ for i:=1 to n do read(a[i]); }

{ random input of array }
randomize;
for i:=1 to n do begin
a[i]:=random(100);
write(a[i],' ');
end;
writeln;


for i:=k to k+m do a[i]:=a[i+m];
n:=n-m;
for i:=1 to n do write(a[i],' ');

readln;

END.

[Никитка89]

огромное спасибо