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 Почему?