Добавить после первого элемента списка заданное количество элементов. Pascal ABC
Ответы на вопрос
Ответил GROOVYBOI
0
const
N = 10;
Elem = 666;
var
a: array [1..N+1] of integer;
K: integer;
begin
for var i:=1 to N do
a[i] := Random(100);
writeln('Элементы массива a: ');
for var i:=1 to N do
write(a[i],' ');
writeln;
K := Random(1,N);
for var i:=N downto K do
a[i+1] := a[i];
a[K] := 666;
writeln('После вставки элемента ',Elem,' в позицию ',K,':');
for var i:=1 to N+1 do
write(a[i],' ');
writel
Новые вопросы
Қазақ тiлi,
2 года назад
Русский язык,
2 года назад
Информатика,
8 лет назад
Информатика,
8 лет назад
Алгебра,
9 лет назад