Найди и замени все отрицательные числа ** ноль

Question

Найди и замени все отрицательные числа на ноль

Answer 1

Фрагмент на Паскале

for i:= 1 to n do
    if A[i] < 0 then A[i] := 0;