End else

Begin

key:=mas[1];

for i:=1 to n-1 do

mas[i]:=mas[i+1];

mas[n]:=key;

end;

write('Mas[ ');

for i:=1 to n do

write(mas[i],' ');

write(']');

end.

Введите количество элементов

Введите Mas[1]

Введите Mas[2]

Введите Mas[3]

Введите Mas[4]

Введите Mas[5]

Введите 0 для сдвига вправо, или 1 -влево

Mas[ 5 1 2 3 4 ]

Пример3:

Рассортировать элементы одномерного массива по возрастанию методом пузырька.

Для этого сравниваются соседние элементы массива mas[j] и mas[j+1]. Если

mas [j]>mas[j+1], то эти элементы меняются местами через дополнительную переменную key.

programpr; type masiv = array[1..15] ofinteger; vari,key,j,n:integer; mas:masiv; begin writeln('Введите количество элементов '); readln(n); fori:=1 ton do begin writeln('Введите Mas[',i,']'); readln(mas[i]); end; i:=1; whilei=1 do begin i:=0; forj:=1 ton-1 do ifmas [j]>mas[j+1] then begin key:=mas[j]; mas[j]:=mas[j+1]; mas[j+1]:=key; i:=1; end; end; write('Mas[ '); fori:=1 ton do write(mas[i],' '); write(']'); end. Введите количество элементов Введите Mas[1] Введите Mas[2] Введите Mas[3] Введите Mas[4] Mas[ 2 2 4 6 ]