Bài 9. Làm việc với dãy số

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Trương Mỹ Khê

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

Minh Lệ
17 tháng 4 2019 lúc 11:21

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.


Các câu hỏi tương tự
Hoàng Phương Uyên Phạm
Xem chi tiết
Hiền Nguyễn
Xem chi tiết
Phạm Tuấn Kiệt
Xem chi tiết
Hồ Thị Ngọc Vy
Xem chi tiết
Hồ Thị Ngọc Vy
Xem chi tiết
Minh
Xem chi tiết
Mẫn Kim Anh
Xem chi tiết
Huyền Trang
Xem chi tiết
quocviet2808
Xem chi tiết
Lê Thị Phương Dung
Xem chi tiết