Дан массив в(20). заполните его случайными числами в интервале [0,100]. отсортируйте по убыванию и выведите массив на экран. для паскаля

Program arra; const  m=20; var b: array[1..m] of integer; i,j,k: integer; begin randomize; for i: =1 to m do begin  b[i]: = random(101);   end;     write('массив до сортировки: ');   for i: =1 to m do begin   write(b[i]);   write(' ');   end;   writeln; for i : = 1 to m-1 do        for j : = 1 to m-i do            if b[j] < b[j+1] then begin                  k : = b[j];                 b[j] : = b[j+1];                 b[j+1] : = k            end;             write('массив после сортировки: ');             for i: =1 to m do begin  write(b[i]);   write(' ');   end;   end.

Pascal: const  a: array [1..5,1..5] of integer = ((1,2,3,4,5),                                                                                                             (6,7,8,9,10),                                                                                                             (11,12,13,14,15),                                                                                                               (16,17,18,19,20),                                                                                                               (21,22,23,24,25)); var  i,j: integer; begin   for i: =1 to 5 do       for j: =1 to 5 do write (a[i,j],' ');   writeln;   for i: =1 to 5 do       begin           for  j: =1 to 5 do write (a[i,j]: 3);             writeln;       end;     readln; end.  c++: #include < iostream> #include < iomanip> using namespace std; int main() {       int a[5][5] = {{1,2,3,4,5},                                               {6,7,8,9,10},                                               {11,12,13,14,15},                                                 {16,17,18,19,20},                                               {21,22,23,24,25},};       for (int i = 0; i< 5; i++)             for (int  j = 0; j< 5; j++)                   cout < < a[i][j] < < " ";       cout < < endl;       for (int i = 0; i< 5; i++)             {                     for (int j = 0; j< 5;   j++)                             cout < < setw(3) < < a[i][j];                     cout < < endl;               }       return 0; }