var
a:array of integer;
i,n,c:integer;
begin
readln(n);
setlength(a,n);
n:=n-1;
for i:=0 to n do
read(a[i]);
writeln;
c:=a[n];
for i:=n-1 downto 0 do
a[i+1]:=a[i];
a[0]:=c;
write(a[i]:2);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
a:array of integer;
i,n,c:integer;
begin
readln(n);
setlength(a,n);
n:=n-1;
for i:=0 to n do
read(a[i]);
writeln;
c:=a[n];
for i:=n-1 downto 0 do
a[i+1]:=a[i];
a[0]:=c;
for i:=0 to n do
write(a[i]:2);
end.