В представленном фрагменте программы значения одномерного массива задаются с помощью оператора цикла. Чему будет равно A[5]?
For i := 1 To 5 Do
Begin
A[2*i - 1] := i;
A[2*i] := i*i
End;

Пройдем по циклу:

i = 1 A[1] =1 A[2] = 1

i = 2 A[3] =2A[4] = 4

i = 3 A[5] =3 A[6] = 9

i = 4 A[7] =4 A[8] = 16

i = 5 A[9] =5 A[10] = 25

Следовательно A[5] =3