. BÀI 4: Viết chương trình nhập vào mảng gồm 40 số nguyên. Hãy tính tổng của các số chia hết cho 3 có trong mảng đó rồi đưa kết quả ra màn hình. . BÀI 5: Viết chương trình nhập vào mảng gồm 50 số nguyên. Hãy tính tổng của các số chia hết cho 5 có trong mảng đó rồi đưa kết quả ra màn hình.

Câu 4:

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

Câu 5:

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

Bài 4:

Program FNG;
Uses crt;
Var A: array[1..40] of longint;
    n,s: longint;
Begin
        Clrscr;
        s:=0;
        For i:=1 to 40 do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                If A[i] mod 3 = 0 then s:=s+A[i];
        End;

        Write('S = ',s);
        Readln
End.

Bài 5:

Program FNG;
Uses crt;
Var A: array[1..50] of longint;
    n,s: longint;
Begin
        Clrscr;
        s:=0;
        For i:=1 to 40 do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                If A[i] mod 5 = 0 then s:=s+A[i];
        End;

        Write('S = ',s);
        Readln
End.