дан массив вещественных чисел

program z1; uses Crt; var a: array [1… 10] of real; i: integer; beginclrscr; for i: =1 to 10 dobegina[i]: =random (10) -1; write (a[i],'); end; for i: =1 to 10 dobeginif a[i]>0 then a[i]: =2*a[i]else if a[i]<0 then a[i]: =a[i]/2; end; writeln (); for i: =1 to 10 dowrite (a[i],'); end.