Срочно... Дан массив s из n чисел, значения элементов которых находится ** интервале от 0...

Question

Срочно...
Дан массив s из n чисел, значения элементов которых находится на интервале от 0 до 400. Заменить все четные элементы стоящие на нечетных местах на противоположные.

Answer 1

Const n=10;
var s:array[1..n] of integer;
i:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
 begin
 s[i]:=random(401);
 write(s[i]:5);
 end;
writeln;
p:=1;
for i:=1 to n do
 if (s[i] mod 2=0)and(i mod 2<>0)
  then s[i]:=-s[i];
writeln('Измененный массив:');
for i:=1 to n do write(s[i]:5);
writeln;
end.

Пример:
Массив A:
 75 55 240 33 312 98 126 88 161 123
Измененный массив:
 75 55 -240 33 -312 98 -126 88 161 123