Заполнить массив 10 х 10 целыми положительными, вычислите сумму элементов строки, в…

const n=3; var a: array[1… n, 1… n] of word; i, j, max, MaxI, S: longint; {i и j — переменные для цикла, max — максимальный элемент, S — сумма, MaxI — номер строки, в которой расположен максимальный элемент}begin S: =0; max: =0; for i: =1 to n do for j: =1 to n do begin writeln ('Введите a[',i,', ', j, ']'); readln (a[i,j]); if a[i, j]>max then begin max: =a[i, j]; MaxI: =i; end; end; //for for j: =1 to n do s: =s+a[MaxI, j]; writeln ('Сумма элементов строки, в которой расположен максимальный элемент равна ', S); end.