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

const n=10;var a:array[1..n] of integer;i:integer;beginfor i:=1 to n do if i mod 2 = 1  then a[i]:=i else a[i]:=3*i;for i:=1 to n do write(a[i],' ');end.Результат:1 6 3 12 5 18 7 24 9 30