Информатика задание по массиву домашнее задание Задание 1
В линейном массиве целых чисел, содержащем 20 элементов, добавить элемент массива 17 на k-ое место массива. Массив заполняется случайным образом числами от 0 до 50.
Задача 2
K=3, b[k]:=17
b[12, 25, 6, 9, 34]
b[1]:=12
b[2]:=25
b[3]:=6
b[4]:=9
b[5]:=34
b[12, 25,17, 6, 9, 34]
b[1]:=12
b[2]:=25
b[3]:=17
b[4]:=6
b[5]:=9
b[6]:=34
Что происходит? b[4]:=b[3], b[5]:=b[4], b[6]:=b[5]
Как это записать на языке Паскаль?

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

program InsertElementToArray;

var
arraySize, k, i: integer;
arr: array[1..20] of integer;

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

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

// Добавление элемента массива 17 на k-ое место
writeln('Введите значение k от 1 до 20:');
readln(k);
if (k >= 1) and (k <= 20) then
begin
for i := 20 downto k + 1 do
arr[i] := arr[i - 1];
arr[k] := 17;
end
else
writeln('Некорректный ввод k!');

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

// Примерный вывод программы:
// Исходный массив:
// 43 20 8 12 5 15 26 1 49 3 18 44 48 35 36 41 47 9 34 46
// Введите значение k от 1 до 20:
// 7
// Измененный массив:
// 43 20 8 12 5 15 17 26 1 49 3 18 44 48 35 36 41 47 9 34