Bad Girlds - Chapter 5

program VD;
uses crt;
Var A:array[1..100] of integer;
I,n,tong,dem:integer;
tb:real;
Begin
clrscr;
write('Nhap nhiet do cua may ngay');
readln(n);
for i:=1 to n do
begin
write('Moi nhap phan tu thu',I,':');
readln(A[I]);
End;
{Xuat mang}
writeln('Nhiet do cua tuan vua nhap');
For I:=1 to n do
write(A[I]:5);
readln;
{dem so ngay cao hon tb}
Dem:=0;
Tong:=0;
For i:=1 to n do
Tong:=Tong A[I];
Tb:=Tong/n;
writeln('Nhiet do trung binh trong ',n,' ngay',tb:5:2);
for i:=1 to n do
if A[I]>tb then
begin
Dem:=Dem 1;
write(A[I]:5);
end;
writeln(' la cac nhiet do cao hon nhiet do trung binh');
write('Co ',Dem,' ngay co nhiet do cao hon nhiet do tb tuan');
readln;
{tinh tong cac so chia het cho 3}
S:=0;
write('cac so chia het cho 3 la: ');
for i:= 1 to n do
if A[I] mod 3=0 then
begin
S:=s A[1]
write(A[I]:5);
end.
writeln;
writeln('Tong cac phan tu chia het cho 3 la ',s);
readln;
end.