Заполнить массив 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.