Задача 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|Примечание: операции сдвига элементов массива оформите в виде подпрограммы.
program U15Z8; var a: array [1..9] of integer; i,n: integer; procedure sdvig(a1: array of integer; n:integer); begin for i:=1 to 9 do if (i<>n) then write(a[i],'|'); a[9]:=0; write(a[9],'|'); end; begin randomize(); for i:=1 to 9 do begin a[i]:=random(21)-10; write(a[i],'|'); end; writeln(); n:=random(10); writeln('n= ',n); sdvig(a,n); readln(); end.
- Log in to post comments
- 615 reads