viết chương trình.nhập 10 số nguyên bất kỳ, tính trùng bình cộng của các số lẻ vừa nhập được

2 câu trả lời

a=list(input().split())
t=c=0
for i in a:
    i=int(i)
    if i%2==1:
        t+=i
        c+=1
print(t/c)

program bai_giai;

uses crt;

var a:array[1..10]of longint;i,dem,s:longint;tbc:real;

begin

clrscr;

s:=0;

for i:=1 to 10 do

begin

write('a[',i,']=');readln(a[i]);

if(a[i]mod 2<>0)then 

begin

s:=s+a[i];

inc(dem);

end;

end;

tbc:=s/dem;

write('trung binh cong cac so le la:',tbc);

readln;

end.

Câu hỏi trong lớp Xem thêm