. 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.