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

Question

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

Answer 1

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.