Bài 1:
program tuoitrungbinh;
uses crt;
var A:array[1..6] of integer;
n,i:byte;
t,d:integer;
begin
clrscr;
write('Nhap so luong thanh vien trong gia dinh (n<=6): ); readln(n);
t:=0;
for i:=1 to n do
begin
write('So tuoi nguoi thu ',i,': '); readln(A[i]);
t:=t+A[i];
end;
writeln('Tuoi trung binh cua gia dinh la: ',t/n:2:1);
d:=0;
for i:=1 to n do
if A[i]>t/n then d:=d+1;
write('Trong gia dinh co ',d,' nguoi hon tuoi trung binh');
readln;
end.
Bài 2:
program tinhtien;
uses crt;
var A:array[1..100] of real;
n,i:byte;
t:longint;
begin
clrscr;
write('Nhap so ga duoc ban: '); readln(n);
t:=0;
for i:=1 to n do
begin
write('Nhap kg con ga thu ',i,': '); readln(A[i]);
if A[i]>3 then t:=t+A[i]*50000 else t:=t*40000;
end;
write('So tien ban ga duoc la: ',t);
readln;
end.