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

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

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

|1|3|4|5|4|7|-8|-9|
Путь n=2, тогда после работы программы мы должны получить:

|1|4|5|4|7|-8|-9|0|
Примечание: операции сдвига элементов массива оформите в виде подпрограммы.

program lesson15_8;

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

procedure shift(n: integer; var a: myArr);
var
    i: integer;
begin
    for i := n to high(a) - 1 do
        a[i] := a[i + 1];
    a[high(a)] := 0;
end;

var
    arr: myArr;
    i, rand: integer;
begin
    randomize();
    for i := low(arr) to high(arr) do
        arr[i] := 1 + random(100);

    rand := 1 + random(9);

    for i := low(arr) to high(arr) do
        write(arr[i], '|');

    writeln();
    writeln('rand = ', rand);

    shift(rand, arr);

    for i := low(arr) to high(arr) do
        write(arr[i], '|');

    readln();
end.