Bài 11: Kiểu mảng

Trương Anh

Viết chương trình nhập vào mảng A gồm n phần tử ( n ≤≤ 100 ) . Tính trung bình cộng các số dương trong mảng

P/S: mảng có 5 phần tử

các số lần lượt là: 10; -20; 15; -6; 5

Minh Lệ
13 tháng 5 2020 lúc 16:37

Program HOC24;

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

i,n,d: integer;

t: longint;

begin

write('Nhap so phan tu n='); readln(n);

d:=0;

for i:=1 to n do

begin

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

if a[i]>0 then

begin

d:=d+1;

t:=t+a[i];

end;

end;

write('Trung binh cong cac so duong trong mang la :',t/d:1:2);

readln

end.

Bình luận (0)

Các câu hỏi tương tự
Nhân
Xem chi tiết
Đại Văn
Xem chi tiết
Tô Thị Thanh Tuyền
Xem chi tiết
Benny
Xem chi tiết
Bé Thúy
Xem chi tiết
Minh Hoạt
Xem chi tiết
Nguyễn Quang Hà
Xem chi tiết
Khánh Mỹ
Xem chi tiết
nông thị ngân
Xem chi tiết