Pascal:

Дан двумерный массив, который содержит не более 10 строк и не более 10 столбцов. Найти сумму элементов, которые расположены за максимальным элементом.

Const n=10; m=10; var A: array [1 ... n, 1 ... m] of integer; indstr, indstolb, s, i, j: integer; beginrandomize; for i: = 1 to n dobeginfor j: = 1 to m dobeginA[i, j]: = 10 + random (90) ; write (A[i, j]: 5) ; end; writeln; end; A[indstr, indstolb]:=A[1,1]; for i: = 1 to n do for j: = 1 to m do if A[i, j] > A[indstr, indstolb] then begin indstr:=i; indstolb:=j; end; for i: = 1 to n do for j: = 1 to m do if (i>indstr) and (j>indstolb) then s:=s+A[i, j]; writeln ('s = ', s) ; end.