[Ron]

скажем, есть 10-20 переменных в программе.

есть ли какой(я)-нибудь способ-фунция найти максимальное, 2ое значение из этих (списка) переменных без всяких циклов и сравнений?
если нет то какой способ самый быстрый и лучший?
еще бы неплохо было б запомнить какая именно переменная больше всех...

[Bargest]

10-20 переменных похожего смысла надо объединять в массив. Тогда и не будет вопросов, как найти наибольшее. Иначе будет громадный и дико медленный алгоритм на пару листов кода.
Насчет "без всяких циклов и сравнений" вообще не понял - само слово "наибольшее" означает, что оно больше других, то есть его сравнение с остальными. Как можно сравнить с остальными, не сравнивая? И чем циклы не угодили - тоже вопрос.
Если очень надо без циклов и без массива - то как-то так:

Код:

var a,b,c,d,e,f,........:word;
     max:integer;
...
max:=0;
if a>max then max:=a;
if b>max then max:=b;
if c>max then max:=c;
.........

НО ЭТО БРЕД!

[Ron]

ну я думал как то так:

Код:

var a,b,c,d,e,f,........:word;
     max:integer;
max:= какая то функция (a,b,c,d,e,f,........)

ну раз массив, так массив. спасибо...

[YVitaliy]

В таком случае
max:= max(a,max(b,max(c,max(d,max(..,..)))));
Но, думаю, циклы и массивы лучше...

[dr. F.I.N.]

Код:

//-------finction-----------
function MaxValue(ar: array of integer): Integer;
var
  i: Itneger;
begin
  Result := Low(ar);
  for i := Low(ar) to High(ar) do
  if Result > ar[i] then
  Result := ar[i];
end;

//-------usage-----------
ShowMessage(IntToSrt(MaxValue(a, b, c, d...,y,z)));

На коненке.

[Pyro]

существуют Math.MaxValue(array):double, Math.MaxIntValue(array): int

[YVitaliy]

Не IntToSrt а floatToStr
Параметры нужно в квадратные скобки взять
MaxValue([a, b, c, d...,y,z]))
Но это все-равно и цикл, и массивы...

[dr. F.I.N.]

Сообщение от YVitaliy

Не IntToSrt а floatToStr
Параметры нужно в квадратные скобки взять
MaxValue([a, b, c, d...,y,z]))
Но это все-равно и цикл, и массивы...

1. я указал ход мыслей. Поменять тип данных разве проблема? Только я не понял, ТС ничего не говорил о типах!
2. я указал, что писал на коленке. Про квадратные скобки просто забыл. Бывает.