Viết chương trình nhập vào dãy số nguyên từ bàn phím in dãy số vừa nhập ra màn hình tính tổng các dãy số chẵn chia hết cho 3 và in kết quả ra màn hình
Giúp mik vs
Viết chương trình nhập vào dãy số nguyên từ bàn phím in dãy số vừa nhập ra màn hình tính tổng các dãy số chẵn chia hết cho 3 và in kết quả ra màn hình
Giúp mik vs
uese crt;
var a: array[1..100] of integer;
i,n,s: integer;
begin
clrscr;
writeln(‘Nhap so phan tu day:’); readln(n);
for i:= 1to n do begin
writeln(‘Nhap so thu’,i,’:’); readln(a[i]);
end;
writeln(‘day vua nhap la:’);
for i:=1 to n do
write(a[i]:4);
for i:=1 to n do
if a[i] mod 3=0 then s:=s+a[i];
Writeln(‘Tong cac so chia het cho 3 la:’,s);
readln;
end.
program ct;
uses crt;
var i,n,s:integer;
A:array[1..100] of integer;
begin
clrscr;
write(‘nhap n:=’);readln(n);
for i:=1 to n do
begin
write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);
end;
writeln(‘day so vua nhap la’);
for i:=1 to n do
write(A[i],’ ‘);
s:=0;
for i:=1 to n do
if (A[i] mod 2=0) and (A[i] mod 3=0) then s:=s+A[i];
writeln(‘tong la:’,s);
readln
end.