Задача 8 Урок 15

Урок 15

Заполнить массив из 9 элементов случайными числами, далее получить случайное
число N из диапазона от 1 до 9 и затем "удалить" элемент с позиции N из
массива, "сдвинув" значения влево и заполнив все что справа нулями.
Например:

|1|3|4|5|4|7|-8|-9|

Путь n=2, тогда после работы программы мы должны получить:

|1|4|5|4|7|-8|-9|0|

type myArr = array[1..9] of integer;

var a: myArr;
    i, n: integer;
begin
  i := 1;
  randomize();

  for i:=low(a) to high(a) do // наполняем и выводим в консоль
  begin
    a[i] := random(11) - 5;
    write(a[i], ' ');
  end;
  writeln();
  n := random(9) + 1;
  writeln(n);
  for i := n to high(a) do // убираем элемент
    a[i] := a[i + 1]; //затираем данные, при этом a[9] затираем данными извне массива.
  for i:=low(a) to high(a) do // выводим в консоль
    write(a[i], ' ');
  readln();
end.

КОНСОЛЬ

5 1 -3 -4 -2 5 -4 -1 -3
4
5 1 -3 -2 5 -4 -1 -3 0