Задание:
Составить программу вставки в массив A (N) первого элемента, равного 7
Решение:
Program R1; Var a: array[1… 100] of integer; i,n: integer; beginassign (input,'input.txt'); reset (input); assign (output,'output.txt'); rewrite (output); readln (n); for i: =1 to n do read (a[i]); for i: =n+1 downto 2 doa[i]: =a[i-1]; a[1]: =7; for i: =1 to n+1 do write (a[i],'); close (input); close (output); end. Напримерввод 41 2 3 4 вывод 7 1 2 3 4
Знаете другой ответ?