Cоставить алгоритм и программу для: 1)заполнения лвумерного массива (6x4) произвольными значениями и вывода его на экран! 2)подсчета произведения элементов по строкам и вывода на экран номеров строк и соответствующих произведений элементов! 3)нахождения строки с максимальным произведением элементов и вывода на экран ее номера (номеров) и произведения элементов! 4) выделения 1-го столбца в отдельный массив и сортировки его по возврастанию методом прямого выбора

Const   m = 6;   n = 4; var   a: array[1..m, 1..n] of integer;   b: array[1..m] of integer;   i, j, p, pmax, imax: integer;   flag: boolean; begin   {1}   randomize;   writeln('исходный массив');   for i : = 1 to m do   begin       for j : = 1 to n do       begin           a[i, j] : = random(81) - 40;           write(a[i, j]: 4)       end;       writeln   end;   {2}   writeln('произведения построчно');   for i : = 1 to m do   begin       p : = 1;       for j : = 1 to n do p : = p * a[i, j];       writeln(i, ': ', p: 9)   end;   {3}   pmax : = -maxint;   writeln('максимальное построчное произведение');     for i : = 1 to m do   begin       p : = 1;       for j : = 1 to n do p : = p * a[i, j];       if pmax < p then       begin           pmax : = p;           imax : = i;       end   end;   writeln(imax, ': ', pmax: 9);   {4}   for i : = 1 to m do b[i] : = a[i, 1];   for i : = 2 to m do   begin       p : = b[i];       j : = i - 1;       flag : = false;       while (j > 0) and (not flag) do           if p < b[j] then           begin               b[j + 1] : = b[j];               j : = j - 1           end           else flag : = true;       b[j + 1] : = p   end;   writeln('отсортированный первый столбец');   for i : = 1 to m do writeln(b[i]: 3) end. тестовое решение: исходный массив   -27    4    3  14   15  40 -39 -27   40 -40 -40 -24   -38    7  18    1   17  27  29  -9   10 -32  38    0 произведения построчно 1:         -4536 2:       631800 3:   -1536000 4:         -4788 5:     -119799 6:                 0 максимальное построчное произведение 2:       631800 отсортированный первый столбец -38 -27   10   15   17   40

Var          a : array [1..6, 1..7] of integer;           i, e, col, row : integer; begin       for i : = 1 to 6 do             for e : = 1 to 7 do                 a[i, e] : = random(100);       for i : = 1 to 7 do col : = col + a[2, i];       for i : = 1 to 6 do row : = row + a[i, 3];       if col > row then writeln('2-го столбца');       if col < row then writeln('3-ей строки');       if col = row then writeln('равны');       readln; end.

Var       s, i : integer; begin       write('введите сумму двух чисел: ');       readln(s);       if s mod 3 = 0 then       begin             i : = s div 3;             writeln('a = ', i);             writeln('b = ', i*2);       end       else             writeln('таких чисел нет.');       readln; end.