№ макс.элемента массива

[Vitalya_1993]

procedure TForm1.Button1Click(Sender: TObject);
var
a:array[0..69] of integer;
max:integer;
i:integer;
begin
for i:=0 to 69 do
StringGrid1.Cells[i,0]:=IntToStr(random(100)+2);
заполнил стринггрид случайными числами, как найти № макс. элемента(это одномерный массив), допишите прогу пожалуста!!

[ByAlex]

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

procedure TForm1.Button1Click(Sender: TObject);
var
a:array[0..69] of integer;
max:integer;
i:integer;
begin
for i:=0 to 69 do
StringGrid1.Cells[i,0]:=IntToStr(random(100)+2);
заполнил стринггрид случайными числами, как найти № макс. элемента(это одномерный массив), допишите прогу пожалуста!!

А зачем тебе массив a? Работай сразу же со StringGrid'ом. Принимай максимальным первый элемент и побежал по stringgrid'у. Потом выводи, например, в label!

[Vitalya_1993]

я так делал.. не получается