Viết chương trình về kiểu mảng : Nhập N, dãy N số nguyên (N <= 200) . Đếm trong dãy số có bnhieeu số lẻ. tính tổng các số trong dãy số chia hết cho 3

uses crt;

var a:array[1..200] of integer;

      n,i,S:integer;

begin

clrscr;

repeat readln(n) until (n<=200);

for i:=1 to n do readln(a[i]);

d:=0;

S:=0;

for i:=1 to n do 

  begin

     if a[i] mod 2<>0 then d:=d+1;

     if a[i] mod 3=0 then S:=S+a[i];

  end;

writeln(d,' so le');

write('Tong la: ',S);

readln

end.

program gffg;

uses crt;

var S,i,n,t:integer;

      A: array[1..200] of integer;

Begin

Clrscr;

Write('Nhap so chu so cua day: '); Readln(n);

t:=0;
S:=0;

Writeln('Nhap day');

For i:=1 to n do
   Begin
     Readln(A[i]);
     If A[i] mod 2=1 then t:=t+1;
     If A[i] mod 3=0 then S:=S+A[i];
  End;

Writeln('Co ',t,' so le trong day');
Write('Tong cac so chia het cho 3: ',S);

Readln

End.