Дано масив А[n..1] скласти програму яка в масиві всі додатні числа збільшує ** 2 а всі...

Question

Дано масив А[n..1] скласти програму яка в масиві всі додатні числа збільшує на 2 а всі від'ємні числа зменшує на 2 паскаль

Answer 1

Const
    n = 10;

begin
    ArrRandom(n, -50, 50).Select((x, i) -> x + Sign(x) * 2).Print(', ');
end.

если нужна наглядность, то так

const
    n = 10;

begin
    var a := ArrRandom(n, -50, 50).Print(', ');
    writeln;
    a.Select((x, i) -> x + Sign(x) * 2).Print(', ');
end.