Задача 9 урок 15
Primary tabs
Заполните массив из 5 элементов случайными числами из любого диапазона.
Далее пользователь вводит в цикле значения от 1 до 5 -- удаляйте из массива очередной элемент с позиции очередного введенного пользователем числа, сдвигая оставшиеся элементы массива влево, заполняя то, что справа нулями. Распечатывайте промежуточной состояние массива, после каждого удаления.Цикл должен работать до тех пор, пока в массиве не останется ненулевых элементов или пока пользователь не введет число большее чем 5 или меньшее чем 1.
type MyArr = array[1..5] of integer; var a: MyArr; m,g,n: integer; function enter(b: MyArr): MyArr; begin while (m>0) do begin readln(n); if (n>1) and (n<=5) then begin if m=5 then for g:=n to m do b[g]:=b[g+1]; b[high(b)]:=0; if m<5 then for g:=n to m do b[g]:=b[g+1]; b[m]:=0; m-=1; for g:=low(b) to high(b) do write(b[g],' '); writeln(); end else break; end; result:=b; end; begin m:=5; randomize(); for g:=low(a) to high(a) do a[g]:=1+random(15); for g:=low(a) to high(a) do write(a[g],' '); writeln(); a:=enter(a); readln(); end.
- Log in to post comments
- 562 reads