В заданом одномерном масиве все отрицательные элементы заменить на число 10(написать программу )
Цикл замены: for I:=a to b do if mass[I]<0 then mass[I]:=10;