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 Почему?
Я в pascal ABC ввёл он мне такой ответ дал.
i изменяется от 1 до 5, когда значение становится 5 - завершается цикл, если поставите for i:=1 to 9, то вам будет выводить 9
Это к чему тогда Mas[2*i]:=-Mas[2*i-1];
там другой расчет идет, а выводится на экран только i
понятно