Исправьте программу program n_8 ; var n, i , j, x, imax : integer; begin for i: =1 to do 10 do read (a[i]); for i: =1 to do 10 do write (a[i],''); for i: =1 to 9 do begin imax: =i: for j: =i+1 to 10 do if a[ j]> a[imax] then imax: =j; x: =a[i]; a[i]; =a[imax]; a[imax[: =x end ; for i: =1 to do 10 do write (a[i]< '']; end.

Program n8 ;
 var
 n, i , j, x, imax : integer; 
begin
 for i:=1 to do 10 do read (a[i]);
 for i:=1  to do 10 do write  (a[i]');
 for i:=1 to 9 do begin imax:=i: 
for j:=i+1  to 10 do if a[ j]>a[imax] then imax:=j; 
x:=a[i];
 a[i];=a[imax]; 
a[imax]:=x ;
end ; 
for i:=1 to do 10 do write (a[i],"<''); 
end.