Осуществите циклический сдвиг компонент заданного вектора влево на одну позицию . на языке паскаля
Осуществите циклический сдвиг компонент заданного вектора влево на одну позицию
. на языке паскаля
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы