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

282

431

Посмотреть ответы 2

Ответы на вопрос:

Sofia8787

Информатика

4,8(90 оценок)

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.