Как из нескольких чисел найти самое большое ;-)

← →
delpher_gray (2002-10-29 19:07) [0]

Господа Делферы !
Перейду сразу к вопросу.
Например есть 6 цыфр:
1) 658
2) 325
3) 135
4) 632
5) 889
6) 128
Как найти из них самое большое ?
Заранее благодарен.

← →
TTCustomDelphiMaster (2002-10-29 19:20) [1]

F1 - max
или в цикле

← →
wer1 (2002-10-30 10:48) [2]

Подключи модуль Math в нем есть функция MaxIntValue-для целых чисел или MaxValue-для набора чисел. Как с ними работать смотри справку. Функции измодуля Math работают быстро и их есть смысл применять при большом колличестве цифр. А если цифр немного то как подсказал TTCustomDelphiMaster в цикле,используя знаки сравнения < или >.

← →
RV (2002-10-30 11:52) [3]

самое большое - под номером 5.

1. Проверял в маткаде
2. Писал программищу (на сях(++) + асм)
3. Показавал профессору в области ядерной физики

точно, самое большое - под номером 5.

← →
cutter-pro (2002-10-30 11:56) [4]

2RV Пять баллов! Круто прикололся!
:)))))))))))))))))))))))))))))))))...

← →
Separator (2002-10-30 12:09) [5]

function FindMax(const Ar: array of integer): integer; var i, max: integer; begin max:= Low(Ar); if Low(Ar) < High(Ar) then for i:= Low(Ar) + 1 to High(Ar) do if Ar[max] < Ar[i] then max:= i; Result:= Ar[max] end;

Как из нескольких чисел найти самое большое ;-) Найти похожие ветки