Информатика, 9 класс

program z4; var b:array[1..8] of integer; i:integer; begin for i:=1 to 8 do b[i]:=random(11); writeln('исходный массив: '); for i:=1 to 8 do write(b[i], ' '); writeln; for i:=1 to 8 do if i mod 2=0 then b[i]:=(-1)*b[i]; writeln('полученный массив: '); for i:=1 to 8 do write(b[i], ' '); writeln; end.