Заполнить массив из 9 элементов случайными числами, далее получить случайное число N из диапазона от 1 до 9 и затем "удалить" элемент с позиции N из массива, "сдвинув" значения влево и заполнив все что справа нулями.
Например:
|1|3|4|5|4|7|-8|-9|
Путь n=2, тогда после работы программы мы должны получить:
Заполните массив из 5 элементов случайными числами из любого диапазона.
Далее пользователь вводит в цикле значения от 1 до 5 -- удаляйте из массива очередной элемент с позиции очередного введенного пользователем числа, сдвигая оставшиеся элементы второго массива влево, заполняя то, что справа нулями. Распечатывайте промежуточной состояние массива, после каждого удаления.
Пользователь вводит целое число, если оно больше 100, то выведите на экран все числа от этого числа до $1$, иначе же все числа от $1$ до этого числа.
var i, a:integer;
begin
writeln('Input integer');
readln(i);
if(i > 100) then
begin
for a := i downto 1 do
writeln(a);
end
else
for a := 1 to i do
writeln(a);
end.
var i, a:integer;
begin
for i:=1 to 10 do
begin // начало тела цикла (у нас в нём будет 3 операции, как на блок-схеме выше)
a := i; // получаем очередное значение счётчика (первый раз оно будет равно 1, а последний раз = 10)
a := a + 2; // прибавляем к значению 2
write(a, ' '); // выводим с пробелом после значения
end; // конец тела цикла
readln();
end.