Заполните массив случайными числами в интервале [100..999] и переставьте их по возрастанию суммы цифр.

Const dlin = 100; var b: array[1..dlin,1..2] of integer;         i,j,x: integer; begin writeln('исходный массив: '); for i: =1 to dlin do   begin   b[i,1]: =random(800)+100;   write(b[i,1],' ');   b[i,2]: =b[i,1] mod 10 + b[i,1] div 100 + b[i,1] div 10 mod 10;   end; writeln; for i: =1 to dlin-1 do   for j: =dlin-1 downto i do       if b[j,2]> b[j+1,2] then       begin       x: =b[j,2]; b[j,2]: =b[j+1,2]; b[j+1,2]: =x;       x: =b[j,1]; b[j,1]: =b[j+1,1]; b[j+1,1]: =x;       end; writeln('отсортированный массив: '); for i: =1 to dlin do     write(b[i,1],' '); end.

Const   n = 20; var   a: array[1..n] of integer;   b: div 3)+1] of integer;   i, m: integer; begin   randomize;   writeln('элементы массива');   m : = 0;   for i : = 1 to n do   begin       a[i]: = random(155)-55;       write(a[i]: 4);       if (a[i]> 51) and (i mod 3=0) then       begin m: =m+1; b[m]: =a[i] end   end;   writeln;   if m> 0 then begin       writeln('элементы сформированного массива');       for i : = 1 to m do write(b[i]: 3);       writeln   end   else writeln('нет элементов с индексом, кратным 3, больших 51') end. тестовое решение: элементы массива   57  -3  79 -49  30  87 -15  49 -38 -49 -45 -38  55 -27  48 -29  56  63  79  -2 элементы сформированного массива   79 87 63

Const   n = 5; var   a,b: array[1..n,1..n] of integer;   c,r: array[1..n] of integer;   i, j: integer; begin   randomize;   { инициализация }   writeln('матрица a');   for i : = 1 to n do   begin       for j: =1 to n do       begin           a[i,j]: = random(51);           write(a[i,j]: 3)       end;       writeln   end;   writeln('матрица b');   for i : = 1 to n do   begin       for j: =1 to n do       begin           b[i,j]: = random(51);           write(b[i,j]: 3)       end;       writeln   end;   writeln('вектор c');   for i : = 1 to n do   begin       c[i]: = random(51);       write(c[i]: 3)   end;   writeln;   { вычисление и вывод }   writeln('вектор результата');   for i: =1 to n do   begin       r[i]: =0;       for j: =1 to n do r[i]: =r[i]+c[j]*(5*a[i,j]+b[i,j]);       write(r[i],' ')   end end. тестовое решение: матрица a   44 49 29 34  2   48  1 33 10 24   43 48 29  4 50   2 14  5 25 21   39 31 19 12 23 матрица b   42 32 26 10 37   35 29  6 49 43   42 44 10 32 11   32 20  3 11 41   22 40  9 35 10 вектор c   39  9 23 45 44 вектор результата 26812 26591 29968 15636 22385