Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Составить программу вставки в массив A(N) первого элемента, равного 7

Ответ оставил Гость

Program R1;
Var a:array[1..100] of integer;
i,n:integer;
begin
assign(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 do
a[i]:=a[i-1] ;
a[1]:=7 ;

for i:=1 to n+1 do write(a[i], );
close(input);
close(output);
end.

 например

ввод

4

1 2 3 4 

 вывод 

7 1 2 3 4