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