Нужно найти максимальный элемент главной диагонали матрицы (делфи). делаю вот так, но ничего не получается procedure tform1.button2click(sender: tobject); var i,max,j: byte; begin max: =strtoint(stringgrid1.cells[1,1]); for i: =1 to n do if strtoint(stringgrid1.cells[i,i])> max then max: =strtoint(stringgrid1.cells[i,i]); label2.caption: =floattostr(max); end;
1
2
3
4
5
6
7
8
9
procedure TForm1.Button3Click(Sender: TObject); //поиск максимального элемента
...
begin
...
Max:= StrToFloat(strngrd1.Cells[0,0]);//присвоим значение 1 элемента
for i:=0 to strngrd1.ColCount - 1 do //цикл по столбцам
for j:=0 to strngrd1.RowCount - 1 do //цикл по строкам
...
end;