viết ct nhập vào mảng A gồm n phần tử a.đếm số dương và xuất ra tổng dương b.đếm số âm và xuất ra tổng âm c.tính trung bình cộng của dãy

Y1805

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 13 xem

1 trả lời

Thích Trả lời

suttoanxit2002

var n,i: integer;
a:array[1..10000] of real;
x,y,sa,sd,tb: real;
begin
write('nhap n = '); readln(n);
for i:=1 to n do
begin write('a[',i,'] = '); readln(a[i]); end;
sa:=0;sd:=0;tb:=0; x:=0; y:=0;
for i:=1 to n do begin
if a[i] > 0 then begin sd:=sd+a[i]; x:=x+1; end;
if a[i] < 0 then begin sa:=sa+a[i]; y:=y+1; end;
end;
for i:=1 to n do
tb:=tb+a[i];
tb:=tb/n;
writeln('Co ',x:3:0,' so duong va tong la: ',sd:5:2);
writeln('Co ',y:3:0,' so am va tong la: ',sa:5:2);
write('TBC cua day: ',tb:5:2);
end.

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

taphuansinh8

uses crt;
var a : array[1..100] of integer;
n,i ,j,k,d1,d2,tb : integer;
begin clrscr;
write('Nhap n :'); readln(n);
for i:=1 to n do begin
write('Nhap a[',i,']='); readln(a[i]); end;
for i:=1 to n do if a[i] > 0 then d1:=d1+1 else d2:=d2+1;
for i:=1 to n do if a[i]>0 then j:=j+a[i] else k:=k+a[i];
writeln('So luong so duong la :',d2);
writeln('Tong cac so duong la :',j);
writeln('So luong so am la :',d1);
writeln('Tong cac so am la :',k);
writeln('Trung binh cua cua day la :',(k+j)/2:0:2);
readln
end.

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

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

Phan tich cac da thuc sau thanh nhan tu 1/ a)x^2+4xy-21y^2 b)5x^2+6xy+y^2 c)x^2+2xy-15y^2 d)(x-y)^2+4(x-y)-12 e)x^2-7xy+10y^2 f)x^2yz+5xyz-14yz

Giúp mik mấy câu khoanh đáp án đúng nhé

Tìm giá trị lớn nhất của biểu thức: $\dfrac{2}{x + 2\sqrt x + 3}$

(2x-1)(2x+1)-2x( x mũ 2 +3) -1=0

đưngf báo caó nhé mk cần gấp lắm

Cần gấp Giúp mik giải chi tiết nha

1)When I was young,I (want) to become a doctor too but now I (prefer) engineering

Bài 5: Cho điểm O thuộc đường thẳng xy. Trên tia Ox lấy hai điểm M, N sao cho OM = 2cm, ON = 7cm. Trên tia Oy lấy điểm P sao cho OP= 3m. a) Tính độ dài đoạn thẳng MN, NP b) Chứng minh rằng M là trung điểm của đoạn thẳng NP. c) Gọi I là trung điểm của đoạn thẳng MN. Tính MI, OI. Bài 6: Cho điểm O thuộc đường thẳng xy. Trên tia Ox lấy điểm A, sao cho OA = 1cm. Trên tia Oy lấy điểm B, C sao cho OB = 3cm, OC = 7cm. a) Tính độ dài đoạn thẳng BC, AC b) Chứng minh rằng B là trung điểm của đoạn thẳng AC. c) Gọi M là trung điểm của đoạn thẳng BC. Tính BM, OM. làm giúp mình với mình cần gấp

mik cần đáp án chính xác ạ, ko cần quá nhanh, trình bày ra càng tốt, mà ko trình bày cx đc mog các bn giúp đỡ, năn nỉ giúp ó😚😚😚 P/s: dồn gần như hết điểm, giúp có tâm chút nghennn

x+4/5-x+4=x/3-x-2/2 m.n làm giúp mình với ạ! Cảm ơn.

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