Ну наверно так:
Код:
var
Res, Y, X: Array [0..29] of Real;
i: Integer;
....
begin
X[0]:=0;
for i:=1 to 29 do
X[i]:=X[i-1] + 0.25;
for i:=0 to 29 do
Res[i]:=Sin(X[i]*Y[i])/(X[i]-Y[i]);
end;
Только не забудь, что перед выполнением кода массив Y уже должен быть заполнен значениями.
P.S. Код не проверял, но работать должен. |