10.переписать положительные элементы двумерного массива в одномерный массив. вывести на экран эти массивы

Uses crt; const n=3; m=3;       l=9; var a: array [1..n,1..m] of real;     b: array [1..l] of real;     i,j,x,k: integer; begin       x: =1;       for i: =1 to n do           for j: =1 to m do           begin               read(a[i,j]);               if a[i,j]> 0 then               begin                     b[x]: =a[i,j];                     x: =x+1;               end;           end;       clrscr;       for i: =1 to n do           begin           for j: =1 to m do               write(a[i,j]: 3: 0);           writeln;           end;       writeln;       for k: =1 to x-1 do           write(b[k],' '); end.

Любое трехзначное число вида "abc" можно представить к ак выражение 100a+10b+c тогда:   100a+10b+c -   100c+10b+a     99(a-c) значение, равное 99(a-c), равно трехзначному числу, составленному из тех же самых цифр a, b, c. три цифры можно расставить шестью способами, но два из них мы уже использовали, поэтому остается проверить четыре остальные расстановки, что и делает программа. qbasic cls for a = 1 to 9     for b = 0 to 9           for c = a - 1 to 1 step -1                 k = 99 * (a - c)                 k2 = 100 * a + 10 * c + b                 k3 = 100 * c + 10 * a + b                 k4 = 100 * b + 10 * a + c                 k5 = 100 * b + 10 * c + a                 if k = k2 or k = k3 or k = k4 or k = k5 then                       print a; b; c; " - "; c; b; a; " = "; k                 end if           next c     next b next a результат выполнения программы:   9  5  4  -  4  5  9  =  495

Var n, amount, max_digit, copy_of_n: integer; begin       read(n);       copy_of_n : = n;       amount : = 0;       max_digit : = copy_of_n mod 10;       while copy_of_n < > 0 do       begin                                   {находим наибольшую цифру в числе}           if max_digit < copy_of_n mod 10           then               max_digit : = copy_of_n mod 10;           copy_of_n : = copy_of_n div 10;       end;       copy_of_n : = n;       while copy_of_n < > 0 do         {считаем количество таких цифр}       begin           if copy_of_n mod 10 = max_digit           then               amount : = amount + 1;           copy_of_n : = copy_of_n div 10;       end;       writeln(amount); end.