Question

В заданом одномерном масиве все отрицательные элементы заменить на число 10(написать программу )

Answer 1

Цикл замены:
for I:=a to b do if mass[I]<0 then mass[I]:=10;