Câu 1 :
Uses Crt;

Var A : Array[1..100] of Real;

     i,k : Integer;
     s,min : Real;

Begin

 Clrscr;

 s:=0;

 Write('Nhap k : '); Readln(k);

 For i:=1 to k do 

  Begin

   Write('Nhap A[',i,'] : '); Readln(A[i]);

   s:=s+A[i];

  End;

 min:=A[1];

 For i:=2 to k do If A[i] < min then min:=A[i];

 Writeln('TBC day so ban vua nhap la : ',s/n:1:2);

 Writeln('Gia tri nho nhat la : ',min);

 Readln

End.
Câu 2 : 

Uses Crt;

Var A : Array[1..500] of Integer;

     i,min,max,j : Integer;

Begin

 Clrscr;

 Write('Nhap j : '); Readln(j);

 For i:=1 to j do 

  Begin

   Write('Nhap A[',i,'] : '); Readln(A[i]);

   s:=s+A[i];

  End;

 min:=A[1]; max:=A[1];

 For i:=2 to j do 
  Begin

   If A[i] > max then max:=A[i];

   If A[i] < min then min:=A[i];

 End;

 Writeln('So nho nhat la : ',min);

 Writeln('So lon nhat la : ',max);

 Readln

End.

1)

uses crt;
 var a : array[1..100] of real ;
  k,i : longint ;
    s,min : real ;
   begin
    clrscr;
  write('k=');
   readln(k);
 for i := 1 to k do
     begin
    write('a[',i,']=');
    readln(a[i]);
    s := s + a[i];
      end ;
min := a[1] ;
 for i := 2 to k do
    if min > a[i] then min := a[i];
 writeln('Phan tu nho nhat: ',min:3:1);
  writeln('TBC day so: ',s/k:3:1);
        end.

2)

uses crt;
 var a : array[1..100] of longint ;
  i,j,min,max : longint ;
   begin
    clrscr;
  write('j=');
   readln(j);
 for i := 1 to j do
     begin
    write('a[',i,']=');
    readln(a[i]);
      end ;
min := a[1] ;
max := a[1] ;
 for i := 2 to j do
    if min > a[i] then min := a[i];
    if max < a[i] then max := a[i] ;
 writeln('Phan tu nho nhat: ',min);
  writeln('Phan tu lon nhat: ',max);
        end.