Bài 5:

program bai_giai;

uses crt;

var A:array[1..1000] of integer;

      n,i,ta,tc,t:integer;

begin

      clrscr;

      write('Nhap n: ');   readln(n);

      ta:=0;  tc:=0;   t:=0;

      for i:=1 to n do

            begin

                  write('Nhap so thu ',i,': ');  readln(A[i]);

                  if A[i]<0 then ta:=ta+A[i];

                  if A[i] mod 2=0 then tc:=tc+A[i];

                  if (A[i]>0) and (A[i] mod 3=0) then t:=t+A[i];

            end;

      writeln('a. Tong cac so am trong day la: ',ta);

      writeln('b. Tong cac so chia het cho 2 la: ',tc);

      writeln('c. Tong cac so duong va chia het cho 3 la: ',t);

      readln;

end.

HD:

b) Để một số chia hết cho 2 thì phải có điều kiện số đó mod 2=0 (số dư của phép chia số đó cho 2 bằng 1)

c) Khi có 2 điều kiện thì phải có hàm and để kết nối chúng lại với nhau.

Câu 5:

uses crt;
var n,i,s,s1,s2:longint;a:array[1..1000000]of longint;
begin
        clrscr;
        write('Nhap so luong phan tu: ');readln(n);
        for i:=1 to n do
                begin
                        write('Nhap phan tu thu ',i,': ');readln(a[i]);
                        if a[i]<0 then inc(s,a[i]);
                        if a[i] mod 2=0 then inc(s1,a[i]);
                        if (a[i]>0)and(a[i] mod 3=0) then inc(s2,a[i]);
                end;
        writeln('Tong cac so am: ',s);
        writeln('Tong cac so chia het cho 2: ',s1);
        write('Tong cac so duong chia het cho 3: ',s2); 
        readln
end.

HD:

b. ĐK để 1 số chia hết cho 2 là số đó phải mod 2=0 (có nghĩa là phần dư của số đó chia cho 2=0)

c. Hàm and để nối 2 vế điều kiện.