Задан одномерный массив из 10 элементов. Увеличить положительные числа в 3 раза,...

Question

Задан одномерный массив из 10 элементов. Увеличить положительные числа в 3 раза, уменьшить отрицательные в 2 раза.В Turbo Pascal

Answer 1

For i:= 1 to n do if a[i] > 0 then a[i] * 3
                                     else a[i] / 2