viết chương trình : a) nhập vào mảng một chiều không quá 100 phần tử nguyên. b)in mảng vừa nhập. c)tính tổng các phần tử lẻ/chẵn trong mảng. d) đếm xem trong mảng có bao nhiêu phần tử chia hết cho 3. e) tính tổng các phần tử trong mảng.
1 câu trả lời
uses crt;
var a:aray[1..101] of longint;
n,i,s,ch,c,l:longint;
begin
readln(n);
for i:=1 to n do
begin
readln(a[i]);
write(a[i]);
for i:=1 to n do
if a[i] mod 2=0 then c:=c+a[i] else l:=l+a[i];
write('chan',c,' le',l);
for i:=1 to n do
if a[i] mod 3=0 then ch:=ch+1;
write('chia het cho 3',ch);
for i:=1 to n do
tong:=tong+a[i];
write(tong);
end;
readln;
end.
`khoadang09`
Câu hỏi trong lớp
Xem thêm
