Поменять местами значения второго и третьего элементов в одномерном массиве.…

Uses crt; const n=7; var a: array[1… n] of integer; i: integer; beginrandomize; for i: =1 to n dobegina[i]: =random (100) -50; writeln (a[i]); end; writeln; a[2]: =a[2]+a[3]; a[3]: =a[2]-a[3]; a[2]: =a[2]-a[3]; for i: =1 to n dowriteln (a[i]); end.