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