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[2i]:=-Mas[2i-1];

write (i)

end

Получиться I=5 Почему?

Question

Ия

23 октября, 20:35

+3

Ответы (1)

Знаете ответ на вопрос?

Полинария · Answer 1

for i:=1 to 5

оно больше 5 и не может быть

Var s, i:integer;Mas: array[1 ... 10] of integer;beginMas[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 Почему?