Вдвумерном массиве в[1..6,1..6], полученном случайным образом и содержащем положительные и отрицательные числа, найти сумму элементов первого столбца, если полученная сумма больше суммы элементов главной диагонали, то создать одномерный массив, в который записать максимальные элементы строк исходного массива, в противном случае определить среднее арифметическое положительных и отрицательных чисел массива в.

Const   n = 6; var   b: array[1..n, 1..n] of integer;   a: array[1..n] of integer;   i, j, s1, s2, max: integer; begin   randomize;   writeln('исходный массив');   //max : = -777; {заведомо меньше меньшего}   for i : = 1 to n do   begin       for j : = 1 to n do       begin           b[i, j] : = random(101) - 50;           write(b[i, j]: 4)       end;       writeln   end;     s1 : = 0; s2 : = 0;   for i : = 1 to n do begin s1 : = s1 + b[1, j]; s2 : = s2 + b[j, j] end;   if s1 > s2 then begin       writeln('сформированный массив');       for i : = 1 to n do       begin           max : = b[i, 1];           for j : = 2 to n do if max < b[i, j] then max : = b[i, j];           a[i] : = max;           write(max: 4)       end   end   else begin       s1 : = 0; s2 : = 0;       for i : = 1 to n do           for j : = 1 to n do               if b[i, j] > 0 then s1 : = s1 + b[i, j]               else s2 : = s2 + b[i, j];       writeln('среднее арифметическое положительных элементов= ', s1/n);       writeln('среднее арифметическое отрицательных элементов= ', s2/n);   end end. тестовые решения: исходный массив   -32  38 -10  42 -30 -35   -13 -22  14  -2 -42    0   -38  18  29  39 -26  19   15  23  -4 -31  21    8   -36  13 -26  -6 -13 -10   -11  38  40  11 -10 -22 среднее арифметическое положительных элементов= 61.3333333333333 среднее арифметическое отрицательных элементов= -69.8333333333333 исходный массив   -37 -22  38  25 -23  21   -33 -50  32  42  -1    7     9  29  -9  21  29  -4   50  13 -33 -13 -47  10   25  46  18  47  15  48   -48  12 -39  -8  34  14 сформированный массив   38  42  29  50  48  34

Var  a,b,asum,bsum,sum: integer; begin  write('введите два трёхзначных числа: ');   readln(a,b);   if (abs(a)< 100) or (abs(a)> 999) or (abs(b)< 100) or (abs(b)> 999) then write('несоблюдено условие ввода') else begin  asum: =a mod 10 + a div 10 mod 10 + a div 100;   bsum: =b mod 10 + b div 10 mod 10 + b div 100;   sum: =asum+bsum;   if (sum> 9) and (sum< 100) then write('произведение этих чисел равно ',a*b) else write('разность этих чисел равна ',a-b);   end; end.