Question

Viết chương trình nhập vào một mảng là dãy các số nguyên
+ Tìm số bé nhất trong dãy số

+ Tính trung bình cộng các số lẽ

+ Đếm xem trong dãy có bao nhiêu số chia hết cho 5

Answer 1

Lời giải :

program hotrotinhoc ;

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

min,i,n,dem : integer ;

tbc : real ;

begin

write('Nhap do dai cua mang :'); readln(n);

writeln('Nhap cac phan tu cua mang');

for i:= 1 to n do

begin

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

end;

min:=a[1]; tbc:=0; dem:=0;

for i:= 1 to n do

begin

if a[i]<min then min:=a[i];

if a[i] mod 2 <> 0 then tbc:=(tbc+a[i])/i;

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

end;

write('So be nhat trong day la :,min);

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

write('Trong day co ',dem,' chia het cho 5');

readln

end.