Дан массив A(N). Удалить элемент, расположенный на месте k.

· Сдвинуть весь «хвост» массива, начиная с элемента с номером k+1, на одну позицию влево, т.е. выполняя операцию: a_i=a_i+1, где i = k, k+1, …, N-1

· Полученный массив будет содержать N-1 элемент.

Var a:array [1..100] of integer;

n, k, i:byte;

Begin

Randomize;

Readln(n); // количество элементов

Readln(k); //№ удаляемого элемента

{формирование массива случайным образом}

For i:=1 to n do begin

a[i]:=random(101)-50;//

write(a[i])

end; writeln;

{удаление заданного элемента}

For i:=k to n-1 do

a[i]:=a[i+1];

{вывод итогового массива}

For i:=1 to n-1 do

write(a[i]:4);

end.

УДАЛЕНИЕ ЭЛЕМЕНТОВ ИЗ МАССИВА
Задан одномерный массив размера 10. Необходимо удалить его третий элемент.

1. Сколько элементов в массиве? (10.)

2. Сколько элементов станет в массиве после удаления третьего элемента? (9.)

3. Что должно произойти с элементами с первого по второй? (Они не должны измениться.)

4. Какой элемент должен быть помещен на третье место? (На третье место должен быть помещен четвертый элемент исходного массива.)

5. На четвертое? На пятое? (На четвертое место — пятый. На пятое — шестой.)

6. Какую закономерность вы можете указать? (На текущее место в массиве должен быть помещен элемент, следующий за текущим, из исходного массива.)

7. Элементы с какими индексами останутся неизменными, а с какими — будут изменены? (Неизменными останутся элементы, с индексами 1 и 2, а остальные элементы должны измениться.)

8. Начиная с какого индекса элементы должны перемещаться? (Начиная с четвертого.)

9. Необходимо перемещать элементы вправо или влево? (Перемещаться элементы должны влево.)

10. Какой элемент должен быть перемещен на место элемента A[i]? (A[i] :=A[i+1].)

for i:=3 to 9 do
A[i]:=A[i+1].