Задание:
Найти номер строки и номер столбца максимального элемента матрицы, в delphi
Решение:
Var a,i,j,b,p,p1,max: longint; m: array[0… 501,1… 500] of longint; beginread (a,b); for i: =1 to a dofor j: =1 to b doread (m[i,j]); p: =1; p1: =1; max: =m[1,1]; for i: =1 to a dofor j: =1 to b doif m[i,j]>max thenbeginp: =i; p1: =j; max: =m[i,j]; end; writeln (p,',p1); end.
Знаете другой ответ?