Viết chương trình về kiểu mảng : Nhập N, dãy N số nguyên (N <= 200) . Đếm trong dãy số có bnhieeu số lẻ. tính tổng các số trong dãy số chia hết cho 3
2 câu trả lời
uses crt;
var a:array[1..200] of integer;
n,i,S:integer;
begin
clrscr;
repeat readln(n) until (n<=200);
for i:=1 to n do readln(a[i]);
d:=0;
S:=0;
for i:=1 to n do
begin
if a[i] mod 2<>0 then d:=d+1;
if a[i] mod 3=0 then S:=S+a[i];
end;
writeln(d,' so le');
write('Tong la: ',S);
readln
end.
program gffg;
uses crt;
var S,i,n,t:integer;
A: array[1..200] of integer;
Begin
Clrscr;
Write('Nhap so chu so cua day: '); Readln(n);
t:=0;
S:=0;
Writeln('Nhap day');
For i:=1 to n do
Begin
Readln(A[i]);
If A[i] mod 2=1 then t:=t+1;
If A[i] mod 3=0 then S:=S+A[i];
End;
Writeln('Co ',t,' so le trong day');
Write('Tong cac so chia het cho 3: ',S);
Readln
End.
Câu hỏi trong lớp
Xem thêm
