Viết chương trình nhập số nguyên n (0<n<=10 000) và mảng a gồm n số nguyên. Tính và in ra trung bình cộng của các số ÂM, số DƯƠNG trong dãy. Không tính số 0.

nhnhivipbb

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 12 xem

1 trả lời

Thích Trả lời

Momomono

uses crt;
var n,i,res,result,count,cou:longint; a:array[1..100]of longint;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
readln(a[i]);
if (a[i]<0) then begin inc(res,a[i]); inc(count) end;
if (a[i]>0) then begin inc(result,a[i]); inc(cou) end;
end;
if (count>0) then
writeln(res/count:0:2) else
writeln('Khong co so nguyen am!');
if (cou>0) then
writeln(result/cou:0:2) else
writeln('Khong co so nguyen duong!');
readln;
end.

Vote (0) Phản hồi (0) 2 năm trước

Logathanhtam

uses crt;
var i,n,ta,da,td,dd:longint; a:array[1..10]of longint;
begin
clrscr;
write('Nhap n: (0<=n<=10) ');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
if a[i]<0 then begin ta:=ta+a[i]; inc(da); end;
if a[i]>0 then begin td:=td+a[i]; inc(dd); end;
end;
if da>0 then
writeln('Trung binh cong cac so am: ',ta/da:0:2)
else
writeln('Khong co so am');
if dd>0 then
writeln('Trung binh cong cac so duon: ',td/dd:0:2)
else
writeln('Khong co so duong');
readln
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

câu 1:hãy nêu một sô trường hợp vi phạm pháp luật về hôn nhân và hậu quả của việc làm đó. câu 2 :ở gần nhà lan có một cửa hàng bách hóa , có một cô bé mới 13 tuổi nhưng đả phải khuân vác những thùng hàng to , nặng quá sức của mình và hay bị bà chủ đánh đập chửi mắng . a)bà chủ cửa hàng bách hóa có những hành vi sai phạm gì? b)nếu là người chứng kiến em sẽ ứng xử như thế nào ?

Văn nghị luận về tệ nạn học đường

giúp mình với :( . Mình sẽ vote 5 sao

Mọi người có thể giúp mình giải được không mai mình thi anh với có nghệ nên không có thgian mình cũng chưa rõ mấy bài này lắm. Cảm ơn rat nhiều ạ

tính gt lớn nhất của A= -x mũ 2 +1

giúp mình mình lớp 8 bài toán là một người dập xe từ A tới B với vận tốc 20 km/h lúc về chạy từ B về A vì chạy với vận tốc 15km/h nên thời gian chạy chậm hơn lúc đi 10 phút tính quoãng dường AB

''are you going to the cinema?'' he asked me

Giúp em bài này ạ ..em cảm ơn nhiều

lúc 8 giờ sáng có một ô tô khởi hành từ A với vân tốc 60km/giờ,cùng lúc đó tại điểm C trên đường A đến B và cách A 20km một người đi xe máy khởi hành với vân tốc 45km/giờ cùng đi về B .Biệt rằng quãng đường AB dà 100km.Hỏi a) ô tô đuổi kịp xe máy lúc mấy giờ? b)chỗ gặp nhau cách A bao xa?

Trong đoạn trích sao câu nào là câu cầu khiến. Những cầu khiến đó dùng để làm gì? Ông lão chào con cái và nói - Mụ vợ tôi lại nổi cơn điên rồi. Nó không muốn làm nhất phẩm phu nữa, nó muốn làm nữ hoàng. Con cá trả lời - Thôi đừng lo lắng. Cứ về đi. Trời phù hộ lão. Mụ già sẽ là nữ hoàng

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến