Số nguyên dương n(n<=150) và dãy n số nguyên dương a1,a2 ,a3 ... an, mỗi số đều không vượt quá 100 a)kiểm tra dãy số đó có phải là cấp số cộng hay không? b)Tìm trong dãy số có bao nhiêu số = 5 c)tính trung bình tổng d)tính tổng các số chẵn & các số lẻ trong dãy số đó,đứa kết quả ra màn hình

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