ОЧЕНЬ СРОЧНО, ПЛИЗ. А) Упорядочить элементы одномерного массива А (10) произвольных…

var i,j: integer; x: real; a: array [1… 10] of real; begin for i: =1 to 10 do read (a[i]); for i: =2 to 10 do begin for j: =10 downto i do if a[j-1]>a[j] then begin x: =a[j-1]; a[j-1]: =a[j]; a[j]: =x; end; end; for i: =1 to 10 do write (a[i], '); end; var a: array [1… 10] of integer; i, c, sum: integer; begin for i: =1 to 10 do read (a[i]); c: =0; sum: =0; for i: =1 to 10 do if a[i] > 0 then begin inc (c); inc (sum, sqr (a[i]); end; writeln (sum / c); end.