Задача 9 урок 15
Primary tabs
Задача 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.
- Log in to post comments
- 968 reads