Составьте программу которая заполняет массив b 1 ... 8 случайными целыми числами в диапозоне от 1 до 10 затем изменяет знак элементов с чётными индексами на противоположный. выведите на экран исходный и полученный массивы

Var

b: array[1 ... 8] of integer;

i: byte;

begin

randomize;

writeln ('Исходный массив.') ;

for i : = 1 to 8 do

begin

b[i] : = random (9) + 1;

write (b[i], ' ') ;

end;

writeln;

writeln ('Измененый массив.') ;

for i : = 1 to 8 do

begin

if i mod 2 = 0 then b[i] : = - b[i];

write (b[i], ' ') ;

end;

writeln;

end.