Viết chương trình nhập vào một dãy n số a[1], a[2],...,a[n] và i ra màn hình các thông tin sau: - Tổng các phần tử của dãy. - Số lượng số dương và tổng của các số dương của dãy. - số lượng số âm và tổng của các số âm của dãy.

linhlan.1781980

2 năm trước

Viết chương trình nhập vào một dãy n số a[1], a[2],...,a[n] và i ra màn hình các thông tin sau: - Tổng các phần tử của dãy. - Số lượng số dương và tổng của các số dương của dãy. - số lượng số âm và tổng của các số âm của dãy. - Trung bình cộng của dãy.

Loga Sinh Học lớp 12

0 lượt thích 33 xem

1 trả lời

Thích Trả lời

huyenlinh914

program hocmang;

uses crt;

var A:array[1..10000] of integer;

n,i,ta,td,t,da,dd:integer;

begin

clrscr;

write('Nhap so luong phan tu: '); readln(n);

writeln('NHAP GIA TRI TUNG PHAN TU CUA DAY');

t:=0; ta:=0; td:=0; da:=0; td:=0;

for i:=1 to n do

begin

write('A[',i,']= ');

readln(A[i];

t:=t+A[i];

if A[i]<0 then

begin

da:=da+1;

ta:=ta+A[i];

end;

if A[i]>0 then

begin

dd:=dd+1;

td:=td+A[i];

end;

writeln('Day vua nhap la:');

for i:=1 to n do

write(A[i]:4);

writeln('Tong cac phan tu cua day la: ',t);

writeln('Co ',dd,' phan tu duong trong day va tong cua chung la: ',td);

writeln('Co ',da,' phan tu duong trong day va tong cua chung la: ',ta);

writeln('Trung binh cong cua day la: ',t/n:2:2);

readln

end.

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

Linh0801

uses crt;

var a:array[1..10000] of word;

n,i,s,f,t,a,d:word;

begin

clrscr;

write('Nhap so luong phan tu: '); readln(n);

for i:=1 to n do

begin

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

readln(a[i]);

end;

for i:=1 to n do

begin

t:=t+a[i];

if a[i]>0 then

begin

s:=s+1;

f:=f+a[i];

end;

writeln('tong cac ptu cua day la: ',t);

writeln('so luong so duong la: ',s,' va tong cac so duong la: ',f);

for i:=1 to n do

if a[i]<0 then

begin

d:=d+1;

a:=a+a[i];

end;

writeln('so luong so am la: ',d,' va tong cac so am la: ',a);

write('TBC cua day la:',t/n:4:2);

readln

end.

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

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

Ai giúp mình bài 20,21 với ak mình cảm ơn

5 sản phẩm của sinh vật được sử dụng trong phòng trừ tổng hợp dịch hại cây trồng là gì ạ em cảm ơn

Cho 2 cốc đựng 3 dung dịch HCl và H2SO4 loãng vào hai đĩa cân sao cho cân ở vị trí thăng bằng. Sau đó làm thí nghiệm sau: a. Cho 25,44g Na2CO3 vào cốc dung dịch HCl b. Cho m gam Al vào cốc đựng dung dịch H2SO4 cân vẫn ở vị trí cân bằng. Tính m?

kể về 1 nhân vật lịch sử hoặn 1 trận đánh tiêu biểu của nhà Trần mà em tâm đắc nhất

tổng của 2 số gấp 5 lần số hạng thứ nhất biết số hạng thứ nhất là 25 tìm số hạng thứ hai

Vẽ semi giúp mình nhé, trông cuốn hút một tí mà nếu các bn ko vẽ cuốn hút đc thì thôi (mắt to vừa nhé) mình đg tập vẽ semi

Một thửa ruộng hình thang có đáy lớn là 150m, đáy bé bằng 2/3 đáy lớn. Chiều cao kém đáy bé 8m. Trung bình 100m vuông thu hoạch được 70kg thóc. Hỏi cả thửa ruộng đó thu hoạch được bao nhiêu tạ thóc?

''Anh đội viên mơ màng ..... ấm hơn ngọn lửa hồng''có sgk trang 63 1''đoạn thơ trên trích trong bài thơ nào?ai là tác giả bài thơ 2 đoạn thơ viết theo phương thức biểu đạt chính nào? 3 em biết gì về hoàn cảnh ra đời của bài thơ 4 trong đoạn thơ tác giả sử dụng thành công nghệ thuật gì?viết đoạn văn 8-10 câu trình bày về tác dụng nghệ thuật đó của biện pháp tu từ đó? giúp mik ai làm nhanh nhất mik cho 5* 5 lần nha

MIK BỊ MẤT SÁCH , BẠN NÀO GIÚP MIK CHỤP HÌNH BÀI 16 MÔN ĐỊA LÍ LỚP 6 ,

hiệu của hai số bằng 1/4 số bé.tổng hai số là 81.số bé là

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