[AnderoN]

День добрый, помогите пожалуйста, приходят некоторые числа, их необходимо занести в массив и найти из этого массива максимальное число, как это сделать?

[Konrad]

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

День добрый, помогите пожалуйста, приходят некоторые числа, их необходимо занести в массив и найти из этого массива максимальное число, как это сделать?

http://www.delphisources.ru/pages/fa...d_max_min.html

[chainik]

Вообще-то есть в модуле Math специальная функция:

function MaxValue(const Data: array of Double): Double;

Description

MaxValue returns the largest signed value in the Data array. In C++, the Data_Size parameter gives the index of the last element of the array (one less than the number of elements).

и проще всего воспользоваться ей.
Но можно отловить максимум на лету- по мере ввода данных в массив
Примерно так

Код:

var
MaxIndex,   //указывает на максимальный элемент массива
i:integer;
A:array[0..100] of double;  //массив

{--------------кнопка ввода данных из окна Edit1 в массив----------}
procedure TForm1.Button1Click(Sender: TObject);
begin
if i <=High(A) then
    begin
    A[i]:=StrToFloat(Edit1.Text);
    if A[i] > A[MaxIndex] then MaxIndex:=i;
    inc(i);
    end
else
    ShowMessage('массив заполнен');
end;

initialization
MaxIndex:=0;
i:=0;

[Fokys100]

Может будет интересно...

Код:

var 
   a:array [1..100] of single;
   max: single;
//Эта цикл для нахождение максимального члена массива
for i:=1 to 100 do
begin
   if max>a[i] then max:=max
   else if k<=a[i] then k:=a[i];
end;

[Fokys100]

не k а maх. ошибся