Ох, сударь − достали!
Вообще-то мы здесь не любим "помогать" (извините) лоботрясам, которые не то, что не в состоянии решить глупейшую школьную задачку, а даже не могут толком изложить условие. Вот что это такое:
?????????
Следует ли это понимать, как (i³ − i*7 − 3)?
Хоть бы словами описали задание... хотя да, понимаю: пальчики отвалятся.
Ладно, если я правильно понял формулу, то − пожалуйста:
Код:
Var
X,Y:Array[1..10] of Integer;
i,Imin:Integer;
Begin
Writeln('Array X:');
for i:=1 to 10 do
begin
X[i]:=i*i*i-i*7-3;
write(X[i]:4);
end;
Writeln;
Writeln;
Imin:=1;
Writeln('Array Y:');
for i:=1 to 10 do
begin
Y[i]:=X[10-i+1];
if Y[i]<Y[Imin] then Imin:=i;
write(Y[i]:4);
end;
Writeln;
Writeln;
Writeln('Number of minimal element in Y array is ',Imin);
Readln
End.