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

// 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

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