Làm sao để tính tổng các số chẵn mà chia hết cho 3 của mảng Viết chương trình luôn nha 15/07/2021 Bởi Cora Làm sao để tính tổng các số chẵn mà chia hết cho 3 của mảng Viết chương trình luôn nha
Ta chỉ cần truy vết đến từng phần tử và kiểm tra điều kiện, nếu thỏa mãn điều kiện thì tính tổng. program tinh_tong; uses crt; var A:array[1..1000] of integer; n,i,t:integer; begin clrscr; write(‘Nhap so luong phan tu: ‘); readln(n); for i:=1 to n do begin write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]); end; t:=0; for i:=1 to n do if (A[i] mod 2=0) and (A[i] mod 3=0) then t:=t+A[i]; write(‘Tong cac so chan chia het cho 3 la: ‘,t); readln; end. Bình luận
program chan_chia_3; uses crt; var A:array[1..100] of integer; n,i,t:integer; begin clrscr; write(‘Nhap so luong phan tu: ‘); readln(n); t:=0; for i:=1 to n do begin write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]); if (A[i] mod 2=0) and (A[i] mod 3=0) then t:=t+A[i]; end; write(‘Tong cac so chan chia het cho 3 la: ‘,t); readln; end. Bình luận
Ta chỉ cần truy vết đến từng phần tử và kiểm tra điều kiện, nếu thỏa mãn điều kiện thì tính tổng.
program tinh_tong;
uses crt;
var A:array[1..1000] of integer;
n,i,t:integer;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);
end;
t:=0;
for i:=1 to n do
if (A[i] mod 2=0) and (A[i] mod 3=0) then t:=t+A[i];
write(‘Tong cac so chan chia het cho 3 la: ‘,t);
readln;
end.
program chan_chia_3;
uses crt;
var A:array[1..100] of integer;
n,i,t:integer;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
t:=0;
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);
if (A[i] mod 2=0) and (A[i] mod 3=0) then t:=t+A[i];
end;
write(‘Tong cac so chan chia het cho 3 la: ‘,t);
readln;
end.