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

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

program AddElementToArray;

const
N = 20; // размер массива

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

begin
// заполняем массив случайными числами от 0 до 50
randomize;
for i := 1 to N do
A[i] := random(51);

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

// запрашиваем у пользователя номер позиции элемента, который нужно добавить
writeln('Введите номер позиции (от 1 до 20) для добавления элемента:');
readln(k);

// проверяем, что введенное значение k находится в допустимом диапазоне
if (k >= 1) and (k <= N) then
begin
// сдвигаем элементы массива с k-го до N-го вправо
for i := N downto k do
A[i+1] := A[i];

// добавляем элемент массива 17 на позицию k
A[k] := 17;
// выводим измененный массив на экран
writeln('Измененный массив:');
for i := 1 to N do
write(A[i], ' ');
writeln;

end
else
writeln('Ошибка: введенное значение позиции не находится в допустимом диапазоне (1..20)');

end.