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

const n=10;var s:array[1..n] of integer;i:integer;beginRandomize;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