Program sdvig; 
uses crt; 
cоnst n=10; 
k=3; 
var 
i,c,j:integer; 
b:array[1..n] of integer; 
BEGIN 
randomize; 
clrscr; 
writeln('решение задачи на сдвиг вектора '); 
writeln('---------------------------'); 
writeln; 
writeln('вектор В: '); 
for i:=1 to n do begin 
b[ i ]:=random(101); write(b [ i ]:3); 
end; 
writeln; 

for j:=1 to k do begin 
c:=b[ n ]; 
for i:=n-1 downto 1 do 
b[i+1]:=b[ i ] ; 
b[1]:=c; 
for i:=1 to n do 
write(b[ i ]:3); 
writeln; end; 
writeln('конец задачи '); 
readkey; 
END.