Mik chỉ làm câu b,c,d thôi
program Tin_hoc;
uses crt;
var i,n,k.tong,tongchan,tongle:integer;
tb:real;
a: array [1..150] of integer;
begin
clrscr;
write('Nhap so nguyen duong n(n<=150): ');readln(n);
while n>150 do
begin
write('Nhap lai: ');
readln(n)
end;
k:=0;tong:=0;tongchan:=0;tongle:=0;
writeln('Nhap ',n,' so nguyen: ');
for i:= 1 to n do
begin
write('Nhap a[',i,'] <= 100 : ');
readln(a[i]);
while a[i] >100 do
begin
write('Nhap lai: ');
readln(n)
end;
if a[i] = 5 then inc(k);
tong:= tong + a[i];
if a[i] mod 2 = 0 then tongchan:= tongchan + a[i] else tongle:=tongle + a[i]
end;
tb:= tong/n;
writeln('Co ',k,' so bang 5');
writeln('Trung binh cong: ',tb:0:4);
writeln('Tong cac so chan: ',tongchan);
writeln('Tong cac so le: ',tongle