Операция над массивом

[val_nnm]

у меня такое впечатление что вы неправльно данные вводите, может неучли что ваша сначала спрашивает n?
ну хорошо, вот подругому сделал

Program p4;
Var
  n,i:integer;
  a:array[1..10] of integer;
begin
  write('n=');
  read(n);
  for i:=1 to n do Begin
    write('a[',i,']=');
    read(a[i]);
  end;

  writeln;
  writeln('Исходный массив:');
  for i := 1 to n do Write(' ',a[i]:4);

  i := 1;
  while (i<=n) do Begin
    if a[i]<0 then
      a[i] := 1;
    i := i+2;
  End;

  writeln;
  writeln('Результат:');
  for i := 1 to n do Write(' ',a[i]:4);
end.

у вас должно получится например
n=10
a[1]=-1
a[2]=-2
a[3]=-3
a[4]=-4
a[5]=-5
a[6]=6
a[7]=7
a[8]=8
a[9]=9
a[10]=10
Исходный массив:
-1 -2 -3 -4 -5 6 7 8 9 10
Результат:
1 -2 1 -4 1 6 7 8 9 10

[dragun4ik]

СПАСИБО ЗА ПОМОЩЬ Я И НЕ ПОНИМАЛ ПОЧЕМУЖЕ ОН НЕ РАБОТАЕТ