Предмет: Информатика, автор: Никааааааа123

осуществите циклический сдвиг компонент заданного вектора влево на одну позицию

. на языке паскаля

Ответы

Автор ответа: Slavik13220
0
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.
Похожие вопросы
Предмет: Математика, автор: booc48