Задача 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|Примечание: операции сдвига элементов массива оформите в виде подпрограммы.
procedure sdvig(var A: array of integer; N: integer); var c: integer; begin for c := N - 1 to 9 do A[c] := A[c + 1]; end; var i, n: integer; a: array [1..9] of integer; begin randomize(); for i := 1 to 9 do a[i] := random(101) - 50; write('Исходный массив: '); for i := 1 to 9 do write(a[i], ' '); writeln(); n := 1 + random(9); write('Сгенерированный индекс: ', n); sdvig(a, n); writeln(); write('Измененный массив: '); for i := 1 to 9 do write(a[i], ' '); readln(); end.
- Log in to post comments
- 858 reads