Работа с массивами

[Эллочка]

ребят очень прошу помогите с задачкой
массив е получаемый из массива с по правилу:заменяются нулями все элементы до 1-го отрицательного,который заменяется еденицей.все остальные элементы заменяются их абсолютными значениями

[Stilet]

Ты бы хоть язык указала...

[ОДИНОЧЕСТВО В СЕТИ]

[pascal]

var
 A:array[1..456] of Integer;
 i,n:Integer;
 f:Boolean;
begin
  Writeln('input n');
  readln(n);
  Writeln('old array','':7,'new array');
  Writeln('--------------------------');
  f:=False;
  Randomize;
  for i:=1 to 7 do
  begin
    a[i]:=Random(15)-6;
    write ('':2,a[i]:4);
    if f then a[i]:=Abs(a[i]);
    if not f and (a[i]>0) then a[i]:=0;
    if (a[i]<0) and not f then
      begin
        a[i]:=1;
        f:=True;
      end;
    Writeln('':11,a[i]:4);
  end;
   Readln;
end.

[c#]

static void Main(string[] args)
        {   int[] a;
            a = new int[100];
            Console.WriteLine("Введите n");
            string s;
            Random rand = new Random();
            s=Console.ReadLine();
            int n = int.Parse(s);
            bool f = false;
            for (int i = 0; i <= n; i++)
            { a[i]=rand.Next()%15-6;               
              Console.Write(a[i]+"          ");
              if (f==true) 
              { 
               a[i]=Math.Abs(a[i]);
              }
              if ((f==false) &(a[i]>0))
              {
               a[i]=0;
              }
              if ((a[i]<0)&(f==false)) 
              {
               a[i]=1;
               f=true;
              } 
              Console.WriteLine(a[i]);
            }
            Console.ReadKey();
        }