Question

Ввести элементы матрицы А(6, 6).

В матрице А определить месторасположение (координаты) максимального элемента.

Программа запускается, но выводит не то расположение


program Zadacha_10;

{$APPTYPE CONSOLE}

Type mat_a = array[1..6,1..6] of real;

Type mat_b = array [1..6,1..6] of real;

var A:mat_a; B:mat_b;

var i, j, index_i_max, index_j_max : integer;

var min, max:real;

{Формирование матрицы}

begin

for i:=1 to 6 do

for j:=1 to 6 do begin

write('A[',i,',',j,']= ');

readln(A[i,j]);

end;

writeln('A= ');

for i:=1 to 6 do

begin

for j:=1 to 6 do

write(round(A[i,j]),' ');

writeln;

end;

{Поиск макс элементов матрицы}

begin

max:=A[1,1];

for i:=1 to 6 do

for j:=1 to 6 do

if A[i,j]>max then

index_i_max:=i;

index_j_max:=j;

write('Max element raspolojen v A[', index_i_max,',',index_j_max,']');

end;

На вторую матрицу B не обращайте внимание, она понадобится позже

Answer 1

Ответ:

{Поиск макс элементов матрицы}

max:=A[1,1];

for i:=1 to 6 do

for j:=1 to 6 do

if A[i,j]>max then

begin

max:=A[i,j];

index_i_max:=i;

index_j_max:=j;

end;

или

{Поиск макс элементов матрицы}

index_i_max:=1;  //сразу работаем с индексами

index_j_max:=1;

for i:=1 to 6 do

for j:=1 to 6 do

if A[i,j]>A[index_i_max,index_j_max] then

begin

index_i_max:=i;

index_j_max:=j;

end;

Объяснение:

Ты не меняешь максимальный элемент. А также нет составного оператора после then.