Домашняя работа по информатике Напишите на языке паскаль:
В линейном массиве целых чисел, содержащем 20 элементов, добавить элемент массива 17 на k-ое место массива. Массив заполняется случайным образом числами от 0 до 50.

Предыдущий
вопрос Следующий
вопрос

program AddElementToArray;

const
N = 20; // размер массива
MAX_VALUE = 50; // максимальное значение элемента массива

var
arr: array[1..N] of integer;
k, i, newElement: integer;

begin
// Заполнение массива случайными числами от 0 до MAX_VALUE
Randomize;
for i := 1 to N do
arr[i] := Random(MAX_VALUE + 1);

// Вывод исходного массива
writeln('Исходный массив:');
for i := 1 to N do
write(arr[i], ' ');

// Ввод позиции для добавления элемента
writeln;
writeln('Введите позицию k для добавления элемента:');
readln(k);

// Ввод значения нового элемента
writeln('Введите значение нового элемента:');
readln(newElement);

// Добавление нового элемента в массив
for i := N downto k + 1 do
arr[i] := arr[i - 1];
arr[k] := newElement;
N := N + 1;

// Вывод измененного массива
writeln('Измененный массив:');
for i := 1 to N do
write(arr[i], ' ');

readln;
end.