PROGRAM HANH_KHACH;

Type A = array[1..15] of real;

VAR  TOA: A;

           Dem, i, N: Byte;            Tong, TB: real;

BEGIN

Writeln(‘Nhap vao so ngay:’); Readln(N);

Tong:=0;

For i:=1 to N do

                      Begin

                                    Write(‘Nhap so luong hanh khach o toa ’,i,’:’);

                                    Readln(TOA[i]);         Tong:=Tong+TOA[i];

                        End;

TB:=Tong/N;   Dem:=0;

For i:= 1 to N do

                   If TOA[i] > TB then Dem:=dem+1;

Writeln(’ So hanh khach trung binh cua ’,N,’ la: TB:3:3);

Writeln(‘So toa co so luong nguoi cao hon luong nguoi trung binh la:’,Dem);

Readln

END.