Дан целочисленный квадратный массив 10 x 10. Опишите на русском языке или на одном из языков программирования алгоритм вычисления суммы максимальных элементов из каждой строки. Напечатать значение этой суммы. Предполагается, что в каждой строке элемент единственный.
| Pascal | Basic |
| const N=10; var A: array [1..N,1..N] of integer; i, j, k, max, Sum: integer; begin { ввод матрицы N на N} for i:=1 to N do for j:=1 to N do readln(a[i, j]);
Sum :=0; for i:=1 to N do begin max :=A[i,1]; for k:=2 to N do if A[i,k] >= max then max := A[i,k]; Sum := Sum + max; end; writeln(Sum); end. | CLS n = 10 DIM A(n, n) FOR o = 1 TO n FOR i = 1 TO n INPUT A(i, o) NEXT i NEXT o c = 0 FOR i = 1 TO n s = 0 max = 0 FOR j = 1 TO n IF s <= A(j, i) THEN max = A(j, i): s = max NEXT j sum = sum + max NEXT i PRINT sum END |

