Var s,i:integer;
Mas: array[1..10] of integer;
begin
Mas[1]: = 14;
Mas[2]: = 10;
Mas[3]: = -8;
Mas[4]: = 6;
Mas[5]: = 12;
Mas[6]: = 4;
Mas[7]: = -16;
Mas[8]: = -7;
Mas[9]: = 5;
Mas[10]: = 3;
s: = 0;
for i: = 1 to 5 do Mas[2*i]: = -Mas[2*i-1];
write(i)
end
Получиться I = 5 Почему?