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

1

Ответы и объяснения

2013-04-09T21:07:00+04:00

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.