Задача 8 Урок 15
Primary tabs
Заполнить массив из 9 элементов случайными числами, далее получить случайное число N из диапазона от 1 до 9 и затем "удалить" элемент с позиции N из массива, "сдвинув" значения влево и заполнив все что справа нулями.
Например:|1|3|4|5|4|7|-8|-9|Путь n=2, тогда после работы программы мы должны получить:
|1|4|5|4|7|-8|-9|0|Примечание: операции сдвига элементов массива оформите в виде подпрограммы.
var a : array [1..9] of integer; i,n: integer; procedure arr(b:integer); var n1: integer; begin for i:= low(a[b]) to high(a) do begin n1:=b+1; a[b]:=a[n1]; b:=b+1; end; end; begin for i:= low(a) to high(a) do begin a[i]:=random(10); write(a[i], ' '); end; n:=random(10); writeln(); write('N = ',n); arr(n); writeln(); for i:= low(a) to high(a) do write(a[i], ' '); readln(); end.
- Log in to post comments
- 2213 reads
vedro-compota
Sun, 10/10/2021 - 12:33
Permalink
форматирование
форматирование
_____________
матфак вгу и остальная классика =)
Djos
Sun, 10/10/2021 - 14:24
Permalink
var a : array [1..9] of
vedro-compota
Wed, 10/13/2021 - 20:17
Permalink
for i:= low(a[b])
-- уточнить какой тут смысл?
_____________
матфак вгу и остальная классика =)
Djos
Wed, 10/13/2021 - 23:21
Permalink
var a : array [1..9] of
vedro-compota
Sun, 10/17/2021 - 12:50
Permalink
убрать глобальные переменные,
убрать глобальные переменные, перейти на локальные и на те, что передаются на вход
_____________
матфак вгу и остальная классика =)
Djos
Sun, 10/17/2021 - 19:00
Permalink
type marr = array[1..9] of