Код PASCAL:
const N = 10; var a: array [1..N] of integer; m:integer; i:integer; begin for i:=1 to N do a[i]:= Random(100); writeln('Элементы массива a: '); for i:=1 to N do write(a[i],' '); writeln; m:=a[1]; for i:=1 to N-1 do a[i]:= a[i+1]; a[N]:= m; writeln('После сдвига влево: '); for i:=1 to N do write(a[i],' '); writeln; end.