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