помогите мне поажлайста с задачкой на одномерный массив

[Мухаммад]

Дан вектор X(n)

элементы вектора с нечетными номерами умножить на 3

[ZX Spectrum-128]

For i:=1 to n do
  If odd(i) then
     X[i]:=x[i]*3;

[Мухаммад]

а больше ни чего не надо там? мне просто этот алгоритм нужно ввести программу ,чтобы она работала)

[ZX Spectrum-128]

Надо: описание переменных, заполнение вектора и (возможно) вывод вектора.

[Мухаммад]

ты бы не мог мне полный ответ написать) я не понимаю в программировании) буду очень благодарен

[ZX Spectrum-128]

Const
  N=10;
Var
   I:integer;
   X:array [1..n] of real;
Begin
For i:=1 to n do
Readln(x[i]);

For i:=1 to n do
  If odd(i) then
     X[i]:=x[i]*3;
For i:=1 to n do
Writeln(x[i]);
End.

[Мухаммад]

конец понял,а вот начало на каком чзыке написано

[ZX Spectrum-128]

Вся программа написана на Паскале.

[Serge_Bliznykov]

ни "здрастье", ни "пожалуйста", ни, тем более, "спасибо"..
Ещё думаю, что ему программа на VBA нужна!

[Poma][a]

ни "здрастье", ни "пожалуйста", ни, тем более, "спасибо"..

Не совсем.. :

помогите мне поажлайста