Задача 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 U15Z8;
var a: array [1..9] of integer;
    i,n: integer;
procedure sdvig(a1: array of integer; n:integer);
begin
  for i:=1 to 9 do
    if (i<>n) then
      write(a[i],'|');
  a[9]:=0;
  write(a[9],'|');
end;
begin
  randomize();
  for i:=1 to 9 do
    begin
      a[i]:=random(21)-10;
      write(a[i],'|');
    end;
  writeln();
  n:=random(10);
  writeln('n= ',n);
  sdvig(a,n);
  readln();
end.