Напишите программу на паскале, которая в двумерном массиве находит самое большое значение и элементы строки и столбца, на пересечении которых он стоит, делает нулевыми. я начал решать, нашел максимальное значение в массиве, а вот дальше что-то не понял. возьмите кол-во столбцов и строк по 5. заранее. : )

Var max_i, max_j, j, columns, rows, i : integer; arr: array[1..10,1..10] of integer; begin   rows : = random(8) + 2;   columns : = random(8) + 2;   writeln(rows, columns);     for i : = 1 to rows do       for j : = 1 to columns do           arr[i, j] : = random(100);   for i : = 1 to rows do begin       writeln();       for j : = 1 to columns do           write(arr[i, j]: 3);   end;   writeln();   writeln();   max_i: =1;   max_j: =1;   for i : = 1 to rows do       for j : = 1 to columns do           if arr[max_i, max_j] < arr[i, j] then begin               max_i: =i;               max_j: =j;           end;   for i : = 1 to rows do       if i < > max_i then           arr[i, max_j] : = 0;   for j : = 1 to columns do       if j < > max_j then           arr[max_i, j] : = 0;   for i : = 1 to rows do begin       writeln();       for j : = 1 to columns do           write(arr[i, j]: 3);   end;   writeln();   writeln(); end.

 

i = 1

    s = 0

      j = 2

          s = s + i + j = 0 + 1 + 2 = 3

      j = 3

          s = s + i + j = 3 + 1 + 3 = 7

i = 2

    s = 0

      j = 2

            s = s + i + j = 0 + 2 +2 = 4

      j = 3

            s = s + i + j = 4 + 2 + 3 = 9

i = 3

    s = 0

      j = 2

            s = s + i + j = 0 + 3 + 2 = 5

      j = 3

            s = s + i + j = 5 + 3 + 3 = 11

 

это и есть ответ:   s = 11

   

a - уровень продаж, а затем зп первого менеджераb - второго менеджераc - третьегоуровень продаж у всех разный.язык программирования: паскальvara, b, c: integer; beginreadln (a); if a < 500 thena : = 0.03 * a + 200; if (a > 500) and (a < 1000) thena : = 0.05 * a + 200; if a > 1000 thena : = 0.08 * a + 200; readln (b); if b < 500 thenb : = 0.03 * b + 200; if (b > 500) and (b < 1000) thenb : = 0.05 * b + 200; if b > 1000 thenb : = 0.08 * b + 200; readln (c);   if c < 500 thenc : = 0.03 * c + 200; if (c > 500) and (c < 1000) thenc : = 0.05 * c + 200; if c > 1000 thenc : = 0.08 * c + 200;   if (a > b) and (a > c) thena : = a +200; elseif b > c thenb : = b + 200; elsec : = c + 200; wreteln ('зп первого менеджера: ', a, '$'); wreteln ('зп второго менеджера:   ', b, '$');   wreteln ('зп третьего менеджера:   ', c, '$')end.