Заменить первый отрицательный элемент массива нулём

  На паскале: a - массив n - кол-во элементов     for i:=1 to n do if a[i] < 0 then  begin   a[i] := 0;   break; end;