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

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