Положительные элементы массива замените на 10, а отрецательные на -10

Uses crt; const n=10; var a: array[1… n] of integer; i: integer; beginrandomize; for i: =1 to n dobegina[i]: =random (100) -50; write (a[i]: 3); if a[i]>0 then a[i]: =10 else a[i]: =-10; end; writeln; for i: =1 to n dowrite (a[i]: 3); end.