Дан массив А(10).Все положительные элементы заменить ** отрицательные (равные по...

Question

Дан массив А(10).Все положительные элементы заменить на отрицательные (равные по модулю),а нули заменить на 100(Pascal)

Answer 1

Const
   N = 10;
Var
   A:array[1..N] of integer;
   i:integer;
Begin
Write('Исходный массив: ');
For i:= 1 to N do
    Begin
    A[i]:=random(21)-10;
    Write(A[i],' ');
    End;
WriteLn;
Write('Переработанный массив: ');
For i:= 1 to N do
    Begin
    if A[i] > 0 then A[i]:=-A[i];
    if A[i] = 0 then A[i]:=100;
    Write(A[i],' ');
    End;
End.

Пример:
Исходный массив: -7 10 -1 -8 9 -5 -1 -5 -9 0
Переработанный массив: -7 -10 -1 -8 -9 -5 -1 -5 -9 100

Answer 2

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrInteger('10 чисел:',10);
  a.Transform(x->x>0?-x:x=0?100:x);
  a.Println
end.

Пример
10 чисел: 13 -10 5 0 14 0 -6 -7 0 4
-13 -10 -5 100 -14 100 -6 -7 100 -4