Giải hộ mik vs ạ. Viết chương trình nhập vào dãy số nguyên. a. Hiển thị các số đó ra màn hình. b. Tính tổng các phần tử chẳn. c. Đếm xem có bao nhiêu phần tử chia hết cho 3. d. Tính giá trị trung bình của các phần tử. e. In ra dãy số đã sắp xếp các phần tử tăng dần ( giảm dần ). f. In ra danh sách các số chẳn và tính tổng của chúng.

uses crt;
var a:array[1..1000000] of longint;
      n,i,j,t,s,d,s1:longint;
begin
      clrscr;
      write('Nhap so luong phan tu: '); readln(n);
      for i:=1 to n do 
            begin
                  write('Nhap so thu ',i,': '); readln(a[i]);
                  inc(s1,a[i]);
                  if a[i] mod 2=0 then inc(s,a[i]);
                  if a[i] mod 3=0 then inc(d);
            end;
      write('a) Cac so vua nhap: ');
      for i:=1 to n do write(a[i],' '); writeln;
      writeln('b) Tong cac phan tu chan: ',s);
      writeln('c) Co ',d,' phan tu chia het cho 3');
      writeln('d) Gia tri trung binh cac phan tu: ',s1/n:0:2);
      for i:=1 to n-1 do 
            for j:=i+1 to n do 
                  if a[i]>a[j] then
                        begin
                              t:=a[i];
                              a[i]:=a[j];
                              a[j]:=t;
                        end;
      write('e) Day tang dan: ');
      for i:=1 to n do write(a[i],' '); writeln;
      for i:=1 to n-1 do 
            for j:=i+1 to n do 
                  if a[i]<a[j] then
                        begin
                              t:=a[i];
                              a[i]:=a[j];
                              a[j]:=t;
                        end;
      write('   Day giam dan: ');
      for i:=1 to n do write(a[i],' '); writeln;
      write('f) Danh sach cac so chan: ');
      for i:=1 to n do if a[i] mod 2=0 then write(a[i],' '); writeln;
      writeln('   Tong cua chung: ',s);
      readln;
end.

uses crt;
var A:array[1..10000] of integer;
    i,j,sch,dem,tam,n:integer; tb:real;
begin
   clrscr;
   sch:=0; dem:=0; tb:=0;
   write('Nhap n: '); readln(n);
   for i:=1 to n do
   begin
      write('Nhap phan tu thu ',i,': ');
      readln(A[i]);
      if A[i] mod 2 = 0 then sch:=sch+A[i];
      if A[i] mod 3 = 0 then inc(dem);
      tb:=tb+A[i];
   end;
   write('Hien thi cac so ra man hinh: ');
   for i:=1 to n do write(A[i]:4);
   tb:=tb/n;
   writeln;
   writeln('Co ',dem,' phan tu chia het cho 3');
   writeln;
   writeln('Gia tri trung binh cua cac phan tu la: ',tb:4:2);
   for i:=1 to n-1 do
      for j:=i+1 to n do
      if A[i]>A[j] then
      begin
         tam:=A[i];
         A[i]:=A[j];
         A[j]:=tam;
      end;
    write('Day tang dan: ');
    writeln;
    for i:=1 to n do write(A[i]:4);
    writeln;
    write('Danh sach cac so chan la: ');
    for i:=1 to n do
    if A[i] mod 2 = 0 then write(A[i]:4);
    writeln;
    write('Tong cac so chan la: ',sch);
    readln
end.