Задачка простая но решить не могу,а завтра контрольная...Помогите пожалуйста!

[killoff1234]

Массив действительных чисел 3х3 ввести с клавиатуры.Среди элементов этого массива найти наибольший элемент и его индекс (i,j) если все элементы этого массива разные. Вывод должен содержать исходный массив в квадратичном виде и ответ.

[killoff1234]

есть наработки,не пойму только в чем ошибка. Почему паскаль считает только по последнему элементу массива??

код:

program zad1;
uses crt;
var
A:array[1..3;1..3] of integer;
i,j,n,m,max:integer;
begin
clrscr;
for i:=1 to 3 do
for j:=1 to 3 do
begin
writeln('введите число',i,' ',j);
readln(A[i,j]);end;
for i:=1 to 3 do begin
for j:=1 to 3 do
write(A[i,j]:4);
writeln;
end;
max:=A[i,j];
if A[i,j]>=max then begin max:=A[i,j];
n:=i; m:=j end;
writeln('max элемент',max);
writeln('строка элемента',n);
writeln('столбец элемента',m);
end.


Посмотрите кто-нибудь тему...

[Базиля]

killoff1234
Нужно искать максимальный элемент с помощью циклов. Так конечно у тебя последние значения J и I равны 3 он соответственно и выводит последний элемент массива

[Анатоль]

max:=A[i,j];
if A[i,j]>=max then begin max:=A[i,j];
n:=i; m:=j end;
Вот эта чатсь вообще ни о чём. Смотри чё тебе надо:
max := A[1,1];
n := 1;
m := 1;
for i := 1 to 3 do
for j := 1 to 3 do
if max < A[i,j] then
begin
max := A[i,j];
n := i;
m := j;
end;
просто когда ты это делаешь в своей проге ты уже вышел из цикла и поэтому нужно все значения заново перепроверять.
Выкинь то что я отметил, вставь то что я написал и всё будет ок.

[killoff1234]

Спасибо большое,век воли не видать без вас!
Все работает)