Viết chương trình nhập vào 1 dãy số nguyên có tối đa 100 phần tử a) Tính tổng các phần tử của dãy b) Tính tổng các phần tử chẵn và chia hết cho 3 Viết chương trình Pascal
2 câu trả lời
Var a:array[1..100] of integer;
i,n,tsc,tscch:integer;
Begin
Write(' Nhap so ptu N = '); Readln(n);
tsc:=0;
For i:= 1 to n do
Begin
Write(' Nhap a[',i,']= '); Readln(a[i]);
If a[i] mod 2 = 0 then tsc:=tsc+a[i];
If (a[i] mod 2 = 0) and (a[i] mod 3 = 0) then tscch:=tscch+a[i];
End;
Write(' Tong cac so chan cua day so tren la: ',tsc);
Writeln;
Write(' Tong cac so chan chia het cho 3 la: ',tscch);
Readln
End.
program tinh_tong;
Uses crt;
var A:array[1..100] of integer;
n,i,t,tc:integer;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
t:=0; tc:=0;
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(A[i]);
t:=t+A[i];
if (A[i] mod 2=0) and (A[i] mod 3=0) then tc:=tc+A[i];
end;
writeln('a. Tong cac phan tu la: ',t);
writeln('b. Tong cac phan tu chan chia het cho 3 la: ',t);
readln;
end.
