Дан натуральный ряд от 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.