В-1 Напишите фрагмент программы, которая преобразует массив из десяти элементов следующим...

Question

В-1
Напишите фрагмент программы, которая преобразует массив из десяти элементов следующим образом: все отрицательные элементы удваивает, а остальные заменяет 0

Comments

вроде бы..

Answer 1

For i := 1 to 10 do
        if a[i] < 0 then
            a[i] := 2 * a[i]
        else a[i] := 0;