Giúp mình bài tập pascal 11 này với

[sieutrom]

Cho 1 dãy số tối đa 50 phần tử(1 mảng)
-Tính tổng các phần tử chia hết cho 3.
-Tính tổng các số chẵn âm.
-Tính tổng các phần tử chi hết cho 4 và là ước số của 100.

Mình suy nghĩ bài này cả tuần rồi nhưng vẫn chưa xong.Mong các bạn giúp mình

[1hakunamatata]

mih ghi thuat toan thoi nha!
s:=0;t:=0;g:=0;
for i:=1 to n do if a[i]mod3=0 then s:=s+a[i];
for j:=1 to n do if (a[j] mod 2 = 0) and (a[j]<0) then t:=t+a[j];
for k:=1 to n do if (a[k] mod 4=0) and (100 mod a[k]=0) then g:=g+a[k];

[isecret]

khai báo thì đơn giản, còn đây là thuật toán:
t1:=0; t2:=0; t3:=0;
for i:=1 to n do
begin
if a[i] mod 3 =0 then t1:=t1+a[i];
if (a[i] mod 2 =0) and (a[i]<0) then t2:=t2+a[i];
if (a[i] mod 4 =0) and (100 mod a[i]=0) then t3:=t3+a[i];
end;