Двумерные массивы Внимание! В задаче реализовать заполнение массива, вывод на экран исходного массива и измененного (если при реш

[Гарри]

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

[Stilet]

var a:array[1..10,1..10] of integer; i,j,m:integer;
begin
 for i:=1 to 10 do for i:=1 to 10 do begin a[i,j]:=i; if a[i,j]<m then m:=a[i,j]; end;
 for i:=1 to 10 do for i:=1 to 10 do begin a[i,j]:=i; if a[i,j]=m then writeln(i:10,j:10) end;
 readln;
end.

[newerow1989]

Stilet, почему нет переменной j в цикле for i:=1 to 10 do for i:=1 to 10 do begin ...

и в клубе программистов скопировали с ошибкой! http://www.programmersclub.ru/двумер...аче-реализова/

[Stilet]

почему нет переменной j

"А скрипач не нужен"
Очепятка это. всего лишь

и в клубе программистов скопировали с ошибкой!

Там этим делом бот рулит, так что бывает )