найти номер строки  и номер столбца максимального элемента матрицы, в delphi

Отыскать номер строчки и номер столбца максимального элемента матрицы, в delphi

Задать свой вопрос
1 ответ
Var a,i,j,b,p,p1,max:longint;
m:array[0..501,1..500] of longint;
begin
read(a,b);
for i:=1 to a do
for j:=1 to b do
read(m[i,j]);
p:=1;
p1:=1;
max:=m[1,1];
for i:=1 to a do
for j:=1 to b do
if m[i,j]gt;max then
begin
p:=i;
p1:=j;
max:=m[i,j];
end;
writeln(p,' ',p1);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

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

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт