Одномерный массив. Delphi )

[NikitaXY]

прошу. помочь. :3
16 Вариант.

[Вадим Мошев]

К какому сроку это надо сделать? А также сколько вы готовы заплатить за решение этой задачи?

[NikitaXY]

чем быстрее тем лучше.
не позже этой недели.
ищу безвозмездной помощи.

[Stilet]

var x,y:array[1..10] of double; imax:integer; d,dmax:double;
begin
 for i:=low(x) to high(y) do begin x:=i;y:=x;end;
 for i:=low(x) to high(y) do begin
  d:=(x[i]+y[i])/2;
  if (i=low(x)) or (d>dmax) then begin dmax:=d; imax:=i;end;
 end;
 ShowMessage(imax);
end.

Годится?

[NikitaXY]

Спасибо :3

[Вадим Мошев]

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

чем быстрее тем лучше.
не позже этой недели.
ищу безвозмездной помощи.

Спасибо за ответы. Поверьте, такой ответ лучше, чем молчание в ответ на предложение об оказании платных услуг...