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]:=
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 Почему?
Гость
Ответ(ы) на вопрос:
Гость for i:=1 to 5
оно больше 5 и не может быть
Не нашли ответ?
Похожие вопросы