Поиск максимального элемента в массиве

[Alexus999]

Помогите решить задачу в delphi:
Найти максимальный элемент среди элементов главной диоганали массива A[5,5].
В паскале решение я решение в общем знаю:
max:=A[i,j];
for i:= 1 to 5 do
for j:=1 to 5 do
if A[i,j]>max then max:=a[i,j];

Проблема с вводом и выводом двумерного массива в Delphi. Знаю, что можно это делать либо с помощью элемента Memo либо StringGrid, но как конкретно? Пожалуйста помогите, заранее спасибо!

[__STDC__]

max:=A[i,j];
for i:= 1 to 5 do
for j:=1 to 5 do
if A[i,j]>max then max:=a[i,j];

мдо? в паскале я бы это сделал как

max:=A[1,1];
for i:= 2 to 5 do
if A[i,i]>max then max:=a[i,i];

[Alexus999]

Да, там в первой строке опечатка. A[1,1] точно.

[Evgeniy26]

Пример посмотри.

[Evgeniy26]

max:=A[1,1];
for i:= 2 to 5 do
if A[i,i]>max then max:=a[i,i];

Это как бы ты так сделал? Ты бы просмотрел только элементы [2,2], [3,3], [4,4], [5,5]

[__STDC__]

Сообщение от Evgeniy26

Это как бы ты так сделал? Ты бы просмотрел только элементы [2,2], [3,3], [4,4], [5,5]

Найти максимальный элемент среди элементов главной диоганали массива A[5,5].

угадайте, главная диагональ содержит в себе элементы с какими индексами?


***
Насчет заполнения, что неясно? Ну используйте стринг грид... в цикле.. x[i,j] := strtoint(stringgrid1.cells[j,i]); к примеру..

[Alexus999]

Evgeniy26, а что троян обязательное доплнение к примеру? Не открывается он.

[Evgeniy26]

__STDC__ Извиняюсь не допонял.

 
max := StrToInt(StringGrid1.Cells[0, 0]);
    for i:=1 to 4 do
      if StrToInt(StringGrid1.Cells[i, i]) > max then
        max := StrToInt(StringGrid1.Cells[i, i]);
  Label1.Caption := IntToStr(max);

[Alexus999]

Благодарю! Всё получилось.