Добавить после первого элемента списка заданное количество элементов. Pascal ABC

3 Окт 2019 в 18:42
186 +1
0
Ответы
1

program addElements;
const
N = 5; // количество элементов, которые нужно добавить
var
list: array[1..5] of Integer;
i, j, element: Integer;
begin
// заполняем изначальный список
for i := 1 to 5 do
begin
list[i] := i;
end;

// выводим изначальный список
writeln('Изначальный список:');
for i := 1 to 5 do
begin
writeln(list[i]);
end;

// добавляем элементы
element := 6;
for i := 1 to N do
begin
for j := 5 downto i do
begin
list[j+1] := list[j];
end;
list[i] := element;
element := element + 1;
end;

// выводим обновленный список
writeln('Обновленный список:');
for i := 1 to 10 do
begin
writeln(list[i]);
end;
end.

19 Апр 2024 в 18:39
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир