Составить программу заполнения массива а[1..10] следующими числами:индекс массива 1 2 3 4 5 6 7 8 9 10значение элемента 1 6 3 12 5 18 7 24 9 30закономерность- значения элементов с нечетными индексами равны индексу элемента,а значения элементов с четными индексами-утроенному индексу элемента

For i:= 1 to 10 do
  if(i mod 2 =0) then
    a[i]:=3*i
  else a[i]:= i;
end;

это само заполнение, оболочку уже не раз сегодня писала в твоих заданиях, влом копировать)