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

Question

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

Answer 1

  На паскале:

a - массив

n - кол-во элементов

 

 

for i:=1 to n do

if a[i] < 0 then 

begin

  a[i] := 0;

  break;

end;