Задача 9 Урок 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 u15z9; type mas=array [1..9] of integer; var i,b:integer; a: mas; function minus(d:integer; e:mas): mas; var j:integer; begin for j:=d to high(e) do //сдвигаем массив if j=high(e) then e[j]:=0 else e[j]:=e[j+1]; result:=e; end; begin randomize(); for i:=low(a) to high(a) do //заполняем массив случайными числами begin a[i] :=random(100); write(a[i],' '); end; writeln(); b:=random(8)+1; //получаем случайное число writeln('b=',b); a:=minus(b,a); //вызываем функцию сдвига for i:=low(a) to high(a) do //выводим массив без числа под номером b write(a[i],' '); readln(); end.
- Log in to post comments
- 339 reads