Помогите возвести каждый второй элемент массива в квадрат(паскаль)

Question

Помогите возвести каждый второй элемент массива в квадрат(паскаль)

Comments

begin var a := Arr(1, 2, 3, 4, 5, 6, 7, 8, 9, 0); for var i := 0 to a.High do if i.isOdd then a[i] *= a[i]; a.Println;//1 4 3 16 5 36 7 64 9 0end.

Answer 1

const n = 15;

var

   a: array[1..n] of real;

   i, k: integer; 

begin

   for i:=1 to n do readln(a[i]);

   for i:= 1 to n do

   begin

       if i mod 2 = 0 then

       a[i]:= sqr(a[i]);

   writeln(a[i]);

   end;

end.

Comments

Тут только четные возводятся

---

это и есть каждый второй элемент, Ннет?

---

Так я ввожу нечетные и они не возводятся

---

там если номер элемента четный (т. е. каждый второй элемент массива), то этот элемент заменяется его квадратом

---

Так если я пишу 2 числом нечетное то оно не возводится

---

ну да