uses crt;
var A:array[1..10] of real;
    i,j,csmax,csmin:byte; max,min,tam:real;
    
begin
   clrscr;
   for i:=1 to 10 do
   begin
      write('Nhap gia tri diem thu ',i,': ');
      readln(A[i]);
   end;
   write('Xuat gia tri diem ra man hinh: ');
   for i:=1 to 10 do write(A[i]:4:2,'   ');
   writeln;
   write('Gia tri diem cua phan tu thu 3 la: ',A[3]:4:2);
   max:=A[1]; csmax:=1;
   for i:=2 to 10 do if A[i]>max then begin max:=A[i]; csmax:=i; end;
   min:=A[1]; csmin:=1;
   for i:=2 to 10 do if A[i]<min then begin min:=A[i]; csmin:=i; end;
   writeln;
   write('Phan tu co diem lon nhat la: ',max:4:2,', o vi tri thu ',csmax);
   writeln;
   write('Phan tu co diem nho nhat la: ',min:4:2,', o vi tri thu ',csmin);
   for i:=1 to 9 do
      for j:=i+1 to 10 do
      if A[i]>A[j] then
      begin
         tam:=A[i];
         A[i]:=A[j];
         A[j]:=tam;
      end;
   writeln;
   write('Mang tang dan: ');
   for i:=1 to 10 do write(A[i]:4:2,'   ');
   writeln;
   write('Vi tri cua cac phan tu co gia tri lon hon 10 la: ');
   for i:=1 to 10 do if A[i]>10 then write(i:4);
   readln
end.