исправьте программу
 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. 

See also: