Если элемент массива положительный то возвести его в квадрат если отрицательный то прибавить 20. - PascalABC.NET

если элемент массива положительный то возвести его в квадрат если отрицательный то прибавить 20. Без рандома а с клавиатуры

Листинг программы

    for i := 1 to n do
        if a[i] >= 0 then a[i] := a[i] * a[i]
        else a[i] := a[i] + 20;

Объяснение кода листинга программы

В данном коде выполняется следующая последовательность действий:

Создается цикл for, который выполняет блок кода для каждого элемента массива a от индекса 1 до n.
В блоке if проверяется условие a[i] >= 0, если оно истинно, то выполняется присваивание a[i] := a[i] * a[i], иначе выполняется присваивание a[i] := a[i] + 20.
После выполнения всех итераций цикла for, цикл завершается. В результате выполнения данного кода, каждый элемент массива a будет возведен в квадрат, если он положительный, иначе к нему будет прибавлено 20.