Задача на массивы

[Богдан 97]

Задача на массивы

Переписать элементы массива X в массив Y в обратном порядке
и найти порядковый номер минимального элемента в массиве Y. Эле-
менты массива X вычисляются по формуле 7 3,
3 Xi = i - i - где i = 1,
2, …, 10.

[mod2]Уважаемый участник, напоминаю, что, в соответствии с Правилами, темы с названиями "Помогите!", "Help!!!", "Помогите, пожалуйста", "Нужна помощь" и т.п. ПОДЛЕЖАТ УДАЛЕНИЮ. Названия тем должны быть конкретными.
На первый раз - тема переименована.

Модератор
[/mod2]

 

[Vladimir_S]

Эле-
менты массива X вычисляются по формуле 7 3,
3 Xi = i - i - где i = 1,
2, …, 10.

Ни бельмеса не понял.

 

[Богдан 97]

Помогите решить задачу на массивы

i
20. Переписать элементы массива X в массив Y в обратном порядке
и найти порядковый номер минимального элемента в массиве Y. Эле- менты массива X вычисляются по формуле X = i3 − 7i − 3, где i = 1,
i
2, ..., 10.

 

[Vladimir_S]

Ох, сударь − достали!
Вообще-то мы здесь не любим "помогать" (извините) лоботрясам, которые не то, что не в состоянии решить глупейшую школьную задачку, а даже не могут толком изложить условие. Вот что это такое:

X = i3 − 7i − 3

?????????
Следует ли это понимать, как (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.

 

[Богдан 97]

спасибо большое:apl: