Дан квадратный массив целых положительных...

Задание:

Дан квадратный массив целых положительных чисел 10 х 10. Опишите на русском языке или на одном из языков программирования алгоритм вычисления суммы элементов строки, в которой расположен элемент с максимальным значением. Вывести значение суммы на печать. Предполагается, что такой элемент единственный.

Решение:

Введем переменные Max (значение максимального элемента), iMax (номер строки, в которой находится максимальный элемент), Sum (сумма элементов той строки, где находится максимальный элемент). Сначала определяем максимальный элемент в матрице: в переменную Max записываем значение A[1,1], а в iMax – единицу (пока считаем, что максимальный элемент стоит в первой строке); затем в двойном цикле проходим все элементы матрицы, если очередной элемент больше Max, запоминаем его значение в Max, а номер строки – в iMax. После этого находим сумму элементов строки с номером iMax: в переменную Sum записываем 0, в цикле проходим все элементы этой строки, добавляя текущий элемент к Sum. Ответ находится в переменной Sum

 
const N=10;
var A:array[1..N,1..N] of integer;
    Max, Sum, iMax, i, k: integer;
begin
  { ввод матрицы N на N }
  iMax := 1; Max := A[1,1];
  for i:=1 to N do
    for k:=1 to N do
      if A[i,k] > Max then begin
        Max := A[i,k];
        iMax := i
      end;
  Sum := 0;
  for k:=1 to N do 
    Sum := Sum + A[iMax,k];
  writeln(Sum)
end.