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

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