Задача 9 Урок 15
Primary tabs
Заполнить массив из 9 элементов случайными числами, далее получить случайное число N из диапазона от 1 до 9 и затем "удалить" элемент с позиции N из массива, "сдвинув" значения влево и заполнив все что справа нулями.
var i,i2: integer; a,b: array [1..8] of integer; procedure randomchis(var a: array of integer); var min, max: integer; begin randomize(); min := -5; max := 5; for i:=low(a) to high(a) do a[i] := min + random(max - min + 1); end; begin randomchis(a); i2:=0; for i:=low(a) to high(a) do if a[i]>0 then begin i2+=1; b[i2]:=a[i]; end; for i:=low(a) to high(a) do write(a[i], ' '); writeln(); writeln(); for i2:=low(b) to high(b) do write(b[i2], ' '); readln(); end.
Вывод консоли:
original array: 70 18 9 6 75 36 86 67 17 random num = 3 array modify: 70 18 6 75 36 86 67 17 0
- Log in to post comments
- 91 reads