Написать программу: нечетным элементам одномерного массива присвоить значения квадратов индексов.

Вопрос школьника по предмету Информатика

Написать программу: нечетным элементам одномерного массива присвоить значения квадратов индексов.

Ответ учителя по предмету Информатика

//PascalABC.Net 3.2

begin

var a:=ReadArrInteger (‘Вводите массив: ‘, readinteger(‘Кол-во элементов: ‘));

for var i:=0 to length(a)-1 do if a[i].isodd then a[i]:=sqr(i+1);

a.Println;

a.Println;

end.