Помогите с паскалем!

Question

Помогите с паскалем!

Merfes07 Мудрец (11607), закрыт 10 лет назад

Задан массив А 10х10. Найти максимальный элемент и подсчитать среднее арифметических строки, в которой он расположен

Answer 1

i_ = 1;
max = A[1,1];
for i:=1 to 10 do
for j:=1 to 10 do
if A[i,j] > max then begin
max:=A[i,j];
i_ = i;
end;
cnt = 0;
for j:=1 to 10 do
cnt:=cnt + A[i_, j];

writeln(cnt);