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

Question

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

Answer 1

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

Comments

а полностью программу можно?