uses crt;
var a:array[1..1000] of real;
n,i,j,t,s,nho:integer;
nho1,min:real;
begin
    clrscr;
    write('n= ');readln(n);
    writeln('Nhap day so');
    for i:=1 to n do
       begin
           write('a[',i,']= ');readln(a[i]);
       end;
    t:=0;s:=0;
    writeln('Day da nhap la');
    for i:=1 to n do
       begin
           j:=0;
           nho1:=a[i];
           while trunc(nho1)<>nho1 do
              begin
                  nho1:=nho1*10;
                  inc(j);
              end;
           writeln('a[',i,']= ',a[i]:0:j);
           if (a[i]=trunc(a[i])) and (trunc(a[i]) mod 2 <> 0) then
              begin
                  t:=t+trunc(a[i]);
                  inc(s);
              end;
       end;
    min:=a[i];
    for i:=1 to n do
       begin
           if a[i]<min then
              begin
                  min:=a[i];
                  nho:=i;
              end;
           if a[i]=min then nho:=i;
       end;
    j:=0;
    nho1:=min;
    while trunc(nho1)<>nho1 do
        begin
            nho1:=nho1*10;
            inc(j);
        end;
    writeln('So nho nhat trong day la: ',min:0:j);
    write('  Vi tri: ');
    for i:=1 to n do
        if a[i]=min then
            begin
                if i=nho then write(i) else write(i,';');
            end;
    writeln;
    if s<>0 then
       writeln('Tbc cac so le co trong day la ',t/s:0:2)
    else writeln('0.00');
readln;
end.

Uses Crt;
Var a:array[1..10000] of real;
i,n,S,dem:integer; min,TBC:real;
Begin
Clrscr;
{a} Write('Nhap N = '); Readln(n);
For i:=1 to n do
Begin
Write('Nhap a[',i,'] = ' ); Readln(a[i]);
End;
WRITELN;
{b} Write(' Day so da nhap tren la: ');
For i:= 1 to n do Write(a[i]:3:2,' ; ');
min:=a[1];
For i:=1 to n do If min>a[i] then min:=a[i];
WRITELN;
Writeln(' So be nhat do la: ',min:2:2);
Write(' So be nhat do nam o vi tri thu: ');
For i:= 1 to n do
Begin
If min=a[i] then write(i:4);
If (a[i]=trunc(a[i])) and (trunc(a[i]) mod 2<> 0) then
Begin
S:=S+trunc(a[i]);
Dem:=dem+1;
End;
Writeln;
End;
If S <> 0 then Write('TBC cac so le co  trong day la: ',s/dem:2:2) else
Write('Bao loi ket qua! Vay nen ket qua= ',0.00);
Readln
End.
*Nhớ tick và chọn làm câu trả lời hay nhất giúp mình nhé!! ~~: 33