Изменить программу так,чтобы я сам вводил число которые будут меняться,а не рандомно. var a: array[1..100] of integer; i,n,t: integer; begin write('введите размерность: '); readln(n); writeln('исходный массив: '); for i: =1 to n do begin a[i]: =random(30)-15; write(a[i]: 4); end; writeln; writeln('преобразованный: '); i: =0; while i begin inc(i,1); t: =a[i]; a[i]: =a[i+1]; a[i+1]: =t; inc(i,1); end; for i: =1 to n do write(a[i]: 4); readln; end.