uses crt;
var a:array[1..7]of real;i,j:longint;tam:real;
begin
 clrscr;
  for i:=1 to 7 do
        begin
         if(i<7)then begin write('nhap nhiet do cua ngay thu ',i+1,':');readln(a[i]);end
         else begin write('nhap nhiet do cua ngay chu nhat:');readln(a[i]);end;
        end;
  for i:=1 to 6 do
   for j:=i+1 to 7 do
    if(a[i]>a[j])then
        begin
         tam:=a[i];
         a[i]:=a[j];
         a[j]:=tam;
        end;
  for i:=1 to 7 do if(a[i]<10)then write(i,' ');
  writeln;
  writeln('min=',a[1]:4:2);
  write('max=',a[7]:4:2);
 readln
end.

uses crt;
var a:array[1..8]of extended;
i:longint;
max,min:real;
begin
clrscr;
for i:=1 to 7 do
begin
write('ngay ',i,' co nhiet do la: ');
readln(a[i]);
end;
max:=a[i];min:=a[i];
for i:=1 to 7 do
begin
if a[i]<10 then write(' ',a[i]:3:1);
end;
writeln;
for i:=2 to 7 do
if a[i]>max then max:=a[i] ;
for i:=2 to 7 do
if a[i]<min then min:=a[i];
writeln('max',max:3:1);
writeln('min',min:3:1);
readln
end.

Test

Int :

ngay 1 co nhiet do la: 3
ngay 2 co nhiet do la: 4
ngay 3 co nhiet do la: 5
ngay 4 co nhiet do la: 6
ngay 5 co nhiet do la: 10
ngay 6 co nhiet do la: 12
ngay 7 co nhiet do la: 1
 Out :

3.0 4.0 5.0 6.0 1.0
max12.0
min1.0