Задача 9 урок 15

Задача 9 урок 15

Заполните массив из 5 элементов случайными числами из любого диапазона.
Далее пользователь вводит в цикле значения от 1 до 5 -- удаляйте из массива очередной элемент с позиции очередного введенного пользователем числа, сдвигая оставшиеся элементы второго массива влево, заполняя то, что справа нулями. Распечатывайте промежуточной состояние массива, после каждого удаления.

Цикл должен работать до тех пор, пока в массиве не останется ненулевых элементов или пока пользователь не введет число большее чем 5 или меньшее чем 1.

type myArr = array[1..5] of integer;
var a: myArr;
 i, N, h: integer;

begin
 randomize();
 for i:=low(a) to high(a) do
   begin
     a[i]:= random(100);
     write('| ',a[i]);
   end;
 writeln('|');
 h := high(a);

 while (h>0) do
   begin
     writeln('Vvedite N');
     readln(N);
     if (N > 0) AND (N < 6) then
       begin
         for i:=N to h do   //цикл перепеси элементов массива
           a[i] := a[i+1];
         a[h] := 0;
         h := h -1;
       end
     else
       break;
     for i:=low(a) to high(a) do //цикл вывода промежуточного результата
       write('| ',a[i]);
     writeln('|');
   end;
 writeln('Exit');
 readln();
end.