помогите решить линейный масив Опции

[-tor-]

В данном линейном целочисленном массиве каждый элемент с чётным индексом увеличить на значение индекса, с нечётным уменьшить на значение индекса.

IMHO проблеммы не только с Паскалем, но и русским!

Сообщение отредактировано: Oleg_Z - 23.01.2005 9:42

[klem4]

Код

uses crt;
const n=5;
var x:array[1..n] of integer;
   i:integer;

Begin
  clrscr;
  for i:=1 to n do
   readln(x[i]);
 for i:=1 to n do
  if i mod 2 = 0 then
    x[i]:=x[i]+i
    else
     x[i]:=x[i]-i;

 writeln;
 for i:=1 to n do
  writeln(x[i]);
 readln;

end.