Дано n чисел. Замените все отрицательные числа их модулями. Язык…

uses crt; var n,i: integer; a: array[1… 1000] of integer; BEGINread (n); for i: =1 to n do read (a[i]); for i: =1 to n do beginif a[i]<0 then a[i]: =abs (a[i]); for i: =1 to n do write (a[i],'); END.