Задача на массив

[Stilet]

Найдите сумму всех неотрицательных чисел в заданном целочисленном одномерном массиве.
arrey [1..10]

for i:=1 to 10 do if arrey[i]>0 then summ:=summ+arrey[i];