Program enot;
Var a: array [1..8] of integer; i:integer;
begin
writeln('Исходный массив: ');
for i:= 1 to 8 do 
 begin
 a[i]:= random(10)+1;
 write(a[i],' ');
 end;
 writeln();
 writeln('Полученный массив: ');
 for i:= 1 to 8 do
 begin
 if i mod 2 =0 then a[i]:=-a[i];
 write(a[i], ' ');
 end;
 end.