Нужно найти максимальный элемент главной диагонали матрицы (делфи). делаю вот так, но ничего не получается 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;
мия59
2
01.10.2019 05:40
2
Другие вопросы по теме Информатика
tamilyamehtiev
26.05.2020 14:06
Змей19
26.05.2020 14:10
Арнэлла1
26.05.2020 14:10
akmaralwellcom
22.04.2020 12:16
Zandrew2000
22.04.2020 12:17
eptvz4
22.04.2020 12:17
ПэкДжин
05.05.2021 14:05
Популярные вопросы
- Решить самостоятельную работу...
3 - Дан четырехугольник abcd. внутри него выбирается произвольная точка m, и для...
2 - Напишите рассуждение на тему один и тот же или разные суффиксы в словах громадина...
1 - Как правильно: руки в креме или в крему?...
2 - Какую профессию лучше выбрать: юрист, , бух, инженер?...
1 - Водгук на верш сяргея законніка добрае слова гэтай ісціне веру даўно, і яна...
1 - 5предложений по фразеологизму клевать носом....
3 - По казахстана 5 класс написать план на тему гунны. напишите территорию, внешняя...
3 - Решите уравнение (3x-1)(x-1)=3x^2-3x-10...
3 - Ряд веществ: h2so4, nh3, nacl, hno3, h3po4, hcl, k2co3. укажи кислоту, которая...
2
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;