Uses Crt;

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

     t,i,n,max : Integer;

Begin

 Clrscr;
 max:=0; t:=0;

 Write('Nhap so ho gia dinh : '); Readln(n);

 For i:=1 to n do 

   Begin

    Write('Nhap khoi nuoc gia dinh thu ',i,' : '); Readln(A[i]);
    If A[i]>max then max:=A[i];
    t:=t+A[i];

   End;
 Writeln('Khoi nuoc trung binh moi ho trong thon su dung la ',t/n:1:2);

 Readln

End.

var a: array[1..1000]of longint;

    n,i,max,tb: longint;

begin

write('Nhap so ho gia dinh trong thon do'); read(n);

for i:=1 to n do

write('Nhap so nuoc su dung cua thon',i); read(a[i]);

begin

max:=a[1];

if a[i]>max then max=a[i];

end;

begin

tb:=a[1];

tb:=tb+a[i]/i;

end;

write('Khoi luong nuoc su dung nhieu nhat la:',max);

write('Khoi luong nuoc trung binh moi ho trong thon su dung la:',tb);

end.

CHÚC BẠN HỌC TỐT!