Дан натуральный ряд от 1 до 100. Изменить знак четных элементов ряда на…

const N=10; var a: array[1… N] of integer; i: integer; begin write ('До замены: '); for i: =1 to N do begin a[i]: =random (100); write (a[i], '); end; writeln; write ('После замены: '); for i: =1 to N do begin if (a[i] mod 2=0) then a[i]: =a[i]*(-1); write (a[i], '); end; end.