Uses crt;

var i,n,tsc,tsl:integer;

a:array [1..1000] of integer;

Begin

clrscr;

Write('Nhap so phan tu:'); Readln(n);

For i:=1 to n do

Begin

Write('a[',i,']='); Readln(a[i]);

End;

tsl:=0; tsc:=0;

For i:=1 to n do If a[i] mod 2=0 then
tsc:=a[i]+tsc else If a[i] mod 2 <> 0 then
Begin
If a[i] mod 4 = 0 then
tsl:=a[i]+tsl;
End;
Writeln('Tong cua cac so chan:',tsc);

Writeln('Tong cua cac so le:',tsl);
Readln
End.
*Đây là chương trình theo đề bài bạn yêu cầu. Nếu tính tổng số lẻ và phải chia hết cho 4 thì kq=0. Nên thay vào đó, mình sửa thành tính tổng số chẵn và phải chia hết cho 4 thì kq nó sẽ hợp lí hơn:
Uses crt;
Var i,n,tsc,tsc4,tsl:integer;
a:array [1..1000] of integer;
Begin
Clrscr;
Write('Nhap so phan tu:'); Readln(n);
For i:=1 to n do
Begin
Write('a[',i,']='); Readln(a[i]);
End;
tsl:=0; tsc:=0;
For i:= 1 to n do if a[i] mod 2 <>0 then tsl:=a[i]+tsl;
Writeln;
Write('Tong cac so chan trong day la: ');
For i:= 1 to n do if a[i] mod 2 =0 then tsc:=a[i]+tsc;
Write(tsc);
Writeln;
For i:=1 to n do If a[i] mod 2=0 then
Begin
If a[i] mod 4 = 0 then
tsc4:=tsc4+a[i];
End;
Writeln('Tong cua cac so chan chia het cho 4 la:',tsc4);
Writeln('Tong cua cac so le:',tsl);
Readln
End.
*Nhớ tick và chọn làm câu tr/l hay nhất giúp mình nhé! Đa tạ trước ạ :333
p/s: Hỏi và đáp, comment bên dưới!

a) Tính tổng các phần tử là số chẵn của mảng và xuất ra màn hình:

uses crt;
var i,n,s:longint; a:array[1..1000000]of longint;
begin
clrscr;
   write('Nhap n: ');readln(n);
   for i:=1 to n do
      begin
         write('Nhap vao phan tu thu ',i,': ');readln(a[i]);
         if a[i] mod 2=0 then inc(s,a[i]);
      end;
   writeln('Tong cac so chan: ',s);
readln
end.

b) Tính tổng các phần tử là số lẻ và chia hết cho 4 của mảng và xuất ra màn hình: 

uses crt;
var i,n,s:longint; a:array[1..1000000]of longint;
begin
clrscr;
   write('Nhap n: ');readln(n);
   for i:=1 to n do
      begin
         write('Nhap vao phan tu thu ',i,': ');readln(a[i]);
         if a[i] mod 4=0 then inc(s,a[i]);
      end;
   writeln('Tong cac so chia het cho 4: ',s);
readln
end.