Cho dãy số nguyên A gồm n phần tử (0 { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " Cho dãy số nguyên A gồm n phần tử (0
0 bình luận về “Cho dãy số nguyên A gồm n phần tử (0<n<=100) . Tính tổng và đếm số phần tử chia hết cho 7 của dãy A”
Program BTT; Uses crt; Var A: array[1..1000] of longint; d,t,i,n: longint; Begin Clrscr; Write(‘Nhap n: ‘); Readln(n); For i:=1 to n do Begin Write(‘A[‘,i,’] = ‘); Readln(A[i]); End;
t:=0; d:=0;
For i:=1 to n do If A[i] mod 7 = 0 then Begin inc(d); t:=t+A[i]; End;
Writeln(‘Co ‘,d,’ phan tu la so chia het cho 7′); Write(‘Tong la: ‘,t); Readln; End.
Program BTT;
Uses crt;
Var A: array[1..1000] of longint;
d,t,i,n: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
For i:=1 to n do
Begin
Write(‘A[‘,i,’] = ‘); Readln(A[i]);
End;
t:=0; d:=0;
For i:=1 to n do
If A[i] mod 7 = 0 then
Begin
inc(d);
t:=t+A[i];
End;
Writeln(‘Co ‘,d,’ phan tu la so chia het cho 7′);
Write(‘Tong la: ‘,t);
Readln;
End.