Одномерные масивы (Delphi 7)

[Artem95]

Даны три массива x, в, z. Получить три массива произведений , xi^2*sin(xi) где (i = 1,2,...,8); ,yj^3*cos(yj) где (j = 1,2,...,12); и,1/zk*tg(zk) где (k=1,2,...,14). Для каждого из массивов произведений найти наибольшее значение и его номер. Предусмотреть функцию введения одномерных массивов и функцию поиска максимального элемента.
Начал учить делфи относительно недавно, вот нашел задание в книге интересное, но сам увы не могу понять как делать, может подскажете?

[alexander13]

Задание на цикл for. Нет желания писать код, подозреваю, что на форуме он уже написан тысячи раз. Если напишете сами и что-то не будет получаться - подскажу.

[Artem95]

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

Задание на цикл for. Нет желания писать код, подозреваю, что на форуме он уже написан тысячи раз. Если напишете сами и что-то не будет получаться - подскажу.

я не могу понять как сделать произведение массива, поиск элемента и сортировку потом сам смогу сделать.

var
  q,i,c,j,n:Double;
   x:array of integer;
  begin
      n:=StrToInt(Edt1.text);
      i:=1+random(8);
      q:=intpower(x[i],2)*sin(x[i]);
      Setlength(x,n);
      for j:= 1 to n-1 do
      x[j]:=-100+random(201);
      c:=0;
      for j:=0 to n-1 do
      if x[j]=0 then
      inc(c);
      for j:=0 to n-1 do
      if x[j]=0 then
      inc(c);
       mmo1.lines.add('Масив');
          for j:=0 to n- 1 do
          mmo1.lines.add('Число['+inttostr(j)+']  =  '+inttostr(x[j]));
          x:=nil;
          end;

[alexander13]

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

я не могу понять как сделать произведение массива

Не произведение массива, а массив произведений.
Циклом for, например. Вычисляя для каждого элемента массива значение, по формулам, которые Вы привели выше, и записывая их в новый массив. Или в тот же самый, это уж как захотите.

Upd. i, j, k - это индексы массивов x, y, z. А у Вас - что-то непонятное.

[Artem95]

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

Не произведение массива, а массив произведений.
Циклом for, например. Вычисляя для каждого элемента массива значение, по формулам, которые Вы привели выше, и записывая их в новый массив. Или в тот же самый, это уж как захотите.

спасибо почти понял)