Question

Viết chương trình các số chia cho 5 và tính trung bình các dãy số đó.

Giúp mik với mai thi rồi :((((

Answer 1

uses crt;

var a:array[1..100]of integer;

i,n,t,tb:integer;

begin

clrscr;

write('n='); readln(n);

for i:=1 to n do

begin

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

end;

t:=0;

for i:=1 to n do

if a[i] mod 5=0 then t:=t+a[i];

writeln('tong cac so chia het cho 5 la: ',t);

tb:=0;

for i:=1 to n do

tb:=tb+a[i];

writeln('trung binh cua day so la: ',tb/n:4:2);

readln;

end.