дан одномерный массив числовых значений, насчитывающий N элементов.

[ytugello]

Здравствуйте! помогите пожалуйста решить задачи, надо срочно к 9 утра сегодня!

1. дан одномерный массив числовых значений, насчитывающий N элементов. Удалить из массива элемент с номером К

2. дан одномерный массив числовых значений, насчитывающий N элементов.
Вставить группу из М новых элементов, начиная с №К

Задачи надо прям сейчас сделать, с меня 6WMZ , просто больше нет.
Заранее спасибо за интерес!

[Z1000000]

program lab1;
const MaxLen=100;
var
 a : array [1..MaxLen] of Integer;
 i,N,k : Integer;
begin
read(N);
for i:=1 to N do a[i] := random(100);
for i:=1 to N do write(a[i],' ');writeln;
read(k);
for i:=k+1 to N do a[i-1]:=a[i];
for i:=1 to N-1 do write(a[i],' ');writeln;
end.

[kenwood2010]

на каком языке написать надо?

[Z1000000]

program lab2;
const MaxLen=100;
var
 a : array [1..MaxLen] of Integer;
 i,j,N,m,k : Integer;
begin
read(N);
for i:=1 to N do a[i] := random(100);
for i:=1 to N do write(a[i],' ');writeln;
read(k);
read(m);
for i:= 1 to m do
 begin
 for j:= N downto k do a[j+1] := a[j];
 read(a[k]);
 k := k + 1; N := N + 1;
 end;

for i:=1 to N do write(a[i],' ');writeln;
end.

[Z1000000]

Модераторы , пишите , пожалуйста , что эта тема перенесена из "Помощи студентам" во "Фриланс". Я отвечал в Помощь студентам, а теперь получается она перенесена. Опять будут возмущенные!