с информатикой.Надо написать программу для решения данных уравнений в языке программирования пайтон

Question

Информатика: с информатикой.Надо написать программу для решения данных уравнений в языке программирования пайтон

dianaroza01 · Accepted Answer

Решение со смещением всех последующих элементов.

program znanija;
const n = 21; // N + 1
var
a:array[1..n] of integer;
m, i:integer;
begin

write('Введите позицию для вставки: ');
readln(m);

if (m<1) or (m>n-1) then
begin
writeln('Недопустимое значение m');
exit;
end;

write('Массив до вставки: ');
for i := 1 to n-1 do
begin
a[i] := random(100);
write(a[i], ' ');
end;

writeln();
for i := n - 1 downto m do // Смещение
a[i+1] := a[i];

a[m] := 10; // Вставка

write('Массив после вставки: ');
for i := 1 to n do
write(a[i], ' ');
end.

MOGZ ответил