tức là đúng là dãy số đó chứ không thay đổi đc giá trị ak

uses crt;

var N: array[1..7] of integer;

s,i,a:integer;

begin

clrscr;

N[1]:=9;

N[2]:=7;

N[3]:=6;

N[4]:=12;

N[5]:=17;

N[6]:=4;

N[7]:=8;

for i:=1 to 7 do

if N[i] mod 3 = 0 then

begin

s:=s+N[i];

a:=a+1;

end;

write('trung binh cong cac so chia het cho 3 tu day so: 9,7,6,12,17,4,8 la ',s/a:3:1);

readln;

end.

a=[i for i in [9,7,6,12,17,4,8] if (i%3==0)]
print('trung binh cong cac so chia het cho 3:',sum(a)/len(a))

$\color{green}{\text{Cần code C/C++, Java, C#, JavaScript thì nói để mình thêm}}$

$\color{red}{\text{#Daoanhviet96}}$