Два двумерных массива, содержащие соответственно 3х3 и 4х4 вещественных элементов. ввести и обработать их следующим образом: функция 1 поиск элементов выше главной диагонали и их количества функция 2. вычислите произведение её элементов из заштрихованной области.

Втаких всегда советую начинать с конца! вот смотри нам нужно получить число 18, его можно получить как умножением на 2, так и вычитанием 3 из 21, но как же нам получить на это уйдёт больше команд значит последняя команда =  2 смотрим дальше было 18, разделим на 2 = 9, это число нельзя получить путем умножения на 2, не будем же мы брать 4.5, значит предпоследняя команда 1  смотрим дальше, было 9 прибавим 3, получается  12, его можно получить обееми , но 15 нам будет сложно получить и будет больше 4 команд, значит пред пред последняя команда  2смотрим дальше, было 12 разделим на 2 получится 6, ну и тут уже очевидно, что первая команда =  2ответ: 2212   (3*2=6,   6*2=12,   12-3=9, 9*2=18)

// №1 const   m = 5;   n = 7; var   a: array[1..m, 1..n] of integer;   i, j, s: integer; begin   for i : = 1 to m do   begin       for j : = 1 to n do       begin           a[i, j] : = random(21) - 10;           if (i mod 2) < > 0 then s : = s + a[i, j];           write(a[i, j]: 4);       end;       writeln;   end;   write('сумма элементов на нечетных строках = ', s); end. тестовое решение:   -10    2  -1  -8  -9  -1    5     2 -10    2    4    8  -6    8     0    3    2    3  -8 -10    4     3  -3  -4    2    9  -8    3     9  -4  -1    3    7    3  -2 сумма элементов на нечетных строках = -13 // №2 const   m = 5;   n = 7; var   a: array[1..m, 1..n] of integer;   i, j, s: integer; begin   for i : = 1 to m do   begin       for j : = 1 to n do       begin           a[i, j] : = random(21) - 10;           if (i mod 2) < > 0 then s : = s + a[i, j];           write(a[i, j]: 4);       end;       writeln;   end;   writeln('элементы на нечетных столбцах: ');   for i : = 1 to m do   begin       for j : = 1 to n do       begin           if (j mod 2) < > 0 then write('a[', i, ',', j, '] = ', a[i, j], '  ');       end;       writeln;   end; end. тестовое решение:     4 -10  -7  -4  -7  -5 -10   -1    3    6 -10  -2  -1  -5     2    8  -5  -1  -3    1    2     3  10  -5    6  -1    3    2   -8    3    4    5  -1    6  10 элементы на нечетных столбцах: a[1,1] = 4  a[1,3] = -7  a[1,5] = -7  a[1,7] = -10  a[2,1] = -1  a[2,3] = 6  a[2,5] = -2  a[2,7] = -5  a[3,1] = 2  a[3,3] = -5  a[3,5] = -3  a[3,7] = 2  a[4,1] = 3  a[4,3] = -5  a[4,5] = -1  a[4,7] = 2  a[5,1] = -8  a[5,3] = 4  a[5,5] = -1  a[5,7] = 10