СРОЧНО!! ПОМОГИТЕ ПОЖАЛУЙСТА Нужно найти максимальный элемент главной диагонали матрицы...

Question

СРОЧНО!! ПОМОГИТЕ ПОЖАЛУЙСТА Нужно найти максимальный элемент главной диагонали матрицы (делфи). Делаю вот так, но ничего не получается 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;

Comments

Вот такое это счастье - Делфи!

---

щас помогу

Answer 1

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;