câu 2:

1. tên chương trình con Hd

2. biến toàn cục a, b

3. biến cục bộ t

4. tham số hình thức x, y

5. tham số thực sự a, b

6. tham trị không có

7. tham biến x, y

8. lệnh gọi chương trình con Hd(a,b)

9. 

10. a=23, b=15

Const Fi='Bai1.INP';
      Fo='KQ.OUT';
Var f,g: text;
    A: Array[1..100000] of longint;
    n,k,i,d,s,min: longint;
Begin
        Assign(f,Fi); Reset(f);
        Assign(g,Fo); Rewite(g);
        Readln(f,n);
        min:=maxlongint; s:=0; d:=0;
        For i:=1 to n do
        Begin
                Read(f,A[i]);
                If A[i]<min then min:=A[i];
                If A[i] mod k = 0 then
                Begin
                        inc(d);
                        s:=s+A[i];
                End;
        End;

        Writeln(g,min);
        Write(g,s/d:0:2);
        Close(f);
        Close(g);
End.