procedure TForm1.Button_calcClick(Sender: TObject);
type mas=array[1..10] of real;
var
X,Y:mas;
Xn,Xk,dX, max:real;
i,N, nom:integer;
begin
N:=Memo_X.Lines.Count; // размерность X
for i:=1 to N do
begin
X[i]:= StrToFloat(Memo_X.Lines[i-1]);//ввод i-го элемента массива
if (cos(X[i]<>-1) then
Y[i]:=ln(abs(2+2*cos(X[i])))
Else
Y[i]:=0;
Memo_Y.Lines.Add(FormatFloat('000.0',Y[i]));
if (i=0) then
begin
max:=Y[i];
nom:=i
end
else
if (Y[i]>max) then
begin
max:=Y[i];
nom:=i
end;
end;
Edit_max.Text:=FloatToStr(max);
Edit_nom.Text:=IntToStr(nom);
End;