Изменить программу так,чтобы я сам вводил число которые будут меняться,а не рандомно. 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.

Var a: array[1..100] of integer; i,n,t: integer; beginwrite('введите размерность: '); readln(n); writeln('исходный массив: '); for i: =1 to n dobeginread(a[i]); write(a[i]: 4); end; writeln; writeln('преобразованный: '); i: =0; while i < n do begininc(i,1); t: =a[i]; a[i]: =a[i+1]; a[i+1]: =t; inc(i,1); end; for i: =1 to n dowrite(a[i]: 4); readln; end.

1) #include < iostream> using namespace std; void draw_square(int n) {     for(int y = 0; y < n; y++)     {         for (int x = 0; x < n; x++)             cout < < "*";         cout < < endl;     } } int main() {   int n;   cin > > n;   draw_square(n);   return 0; } 2) #include < iostream> using namespace std; void drawnumbers(int a) {     while(a > 0)     {       cout < < a%10 < < endl;       a /= 10;     } } int main() {     int a;     cin > > a;     drawnumbers(a);     return 0; } 3) #include < iostream> using namespace std; int main() {     //можно гораздо быстрей, но мне лень     int a;     cin > > a;     for(int i = 1; i < = a; i++) if(a%i==0) cout < < i < < " ";     return 0; } 4) #include < iostream> using namespace std; void procedure(int a) {          int b = a;           int c = 1;           while(b > 0)   {c *= 10; b/=10; }          while(c > 1)          {                    cout < < (a%c)/(c/10) < < endl;                   c /= 10;           } } int main() {        int a;         cin > > a;         procedure(a);         return 0; }