mn giúp em bài này vs ạ. e cần gấp ạ. em cảm ơn rất nhiều Viết chương trình PASCAL cho: Input: N, a1, a2, ..., aN Output: a, Hãy đưa ra chỉ số đầu tiên có giá trị bằng x b, Đếm số lượng các phần tử có giá trị bằng x c, Hãy đưa ra các giá trị lớn hơn x d, Tính giá trị trung bình

huynhlengochan668

2 năm trước

mn giúp em bài này vs ạ. e cần gấp ạ. em cảm ơn rất nhiều Viết chương trình PASCAL cho: Input: N, a1, a2, ..., aN Output: a, Hãy đưa ra chỉ số đầu tiên có giá trị bằng x b, Đếm số lượng các phần tử có giá trị bằng x c, Hãy đưa ra các giá trị lớn hơn x d, Tính giá trị trung bình cộng của các số nhỏ hơn x

Loga Sinh Học lớp 12

0 lượt thích 22 xem

1 trả lời

Thích Trả lời

ngattvh.nongcong

uses crt;

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

i,n,x,csd,d,tbc: integer;

begin

clrscr;

write ('nhap n: '); readln (n);

write ('nhap x: '); readln (x);

for i:=1 to n do

begin

write ('nhap a[',i,']: '); readln (n);

if a[i]=x then csd:=i; {chỉ số đầu bằng x}

if a[i]=x then d:=d+1; {đếm các phần tử bằng x}

if a[i]<x then t:=t+a[i]; {tính tổng để tính Trung bình cộng}

end;

tbc:=t/n;

writeln ('a) chi so dau tien co gia tri bang x la: a[',csd,']');

writeln ('b) co ',d,' phan tu co gia tri bang x');

write ('c) cac gia tri lon hon x la: ');

for i:=1 to n do id a[i]>x then write (a[i],' ');

writeln;

writeln ('d) gia tri trung binh cong cua cac so nho hon x la: ',tbc);

readln;

end.

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

Thuynguyen9420

uses crt;

var i,n,x,d,d2:byte;

a:array[0..200] of integer;

tbc:real;

BEGIN

clrscr;

write('Nhap n:'); readln(n);

write('Nhap x:'); readln(x);

d:=0; tbc:=0; d2:=0;

for i:=1 to n do

begin

write('Nhap a[',i,']:');

readln(a[i]);

if a[i]=x then inc(d);

if a[i]<x then

begin

inc(d2);

tbc:=tbc+a[i];

end;

writeln('a) ',a[x]);

writeln('b) ',d);

write('c) ');

for i:=1 to n do

if a[i]>x then write(a[i],' ');

write('d) ',tbc/d2:0:3);

readln

END.

Chúc bạn học tốt, xin ctlhn!

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

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

đốt cháy hết hỗn hợp gồm 6,75 gam bột nhôm và 9,75g gam bột kẽm cần một lượng oxi vừa đủ được điều chế từ m gam KMnO4

1 tam giác vuông có cạnh huyền bằng 26 cm và có độ dài các cạnh góc vuông tỉ lệ với 5 và 12 . tính độ dài các cạnh góc vuông a. 10cm ,22cm b. 10cm ,24cm c. 12cm,24cm d. 15cm ,24cm

Câu 1. Các tên gọi của dụng cụ dùng để đo số đo của một góc là gì? * 1 điểm A. Thước đo góc. B. Thước thẳng. C. Thước đo độ. D. Thước cong. Câu 2. Muốn đo số đo của góc MNP, ta đặt tâm của thước đo độ trùng với đỉnh của góc là điểm nào? * 1 điểm A. Điểm M. B. Điểm N. C. Điểm P. D. Điểm O. Câu 3. Mỗi góc có mấy số đo? * 1 điểm A. 1 B. 2 C. 3 D. 4 Câu 4. Trong hình vẽ sau, góc zOt có số đo bằng bao nhiêu độ? * 1 điểm Hình ảnh không có chú thích A. 45° B. 55° C. 135° D. 145° Câu 5. Hình 14, trong sách giáo khoa Toán 6, tập 2, trang 78, góc xOy có số đo bằng bao nhiêu độ? * 1 điểm A. 30° B. 35° C. 40° D. 145° Câu 6. Hình 18, trong sách giáo khoa Toán 6, tập 2, trang 79, góc xOt có số đo bằng bao nhiêu độ? * 1 điểm A. 50° B. 60° C. 100° D. 130° Câu 7. Hình 19, trong sách giáo khoa Toán 6, tập 2, trang 79, góc BAC có số đo bằng bao nhiêu độ? * 1 điểm A. 55° B. 60° C. 120° D. 125° Câu 8. Trong hình vẽ sau đây, khi đo góc DEF, thước đo góc đã được đặt sai như thế nào? * 1 điểm Hình ảnh không có chú thích A. Cạnh DE không đi qua vạch số 0 của thước. B. Cạnh EF không đi qua vạch số 0 của thước. C. Tâm của thước không trùng với đỉnh D của góc. D. Tâm của thước không trùng với đỉnh E của góc. Câu 9. Trong hình vẽ sau đây, góc uQv có số đo bằng bao nhiêu độ? * 1 điểm Hình ảnh không có chú thích A. 30° B. 140° C. 150° D. 170° Câu 10. Đo trực tiếp trên màn hình các góc trong hình vẽ sau đây, rồi chọn các kí hiệu đúng. * 1 điểm Hình ảnh không có chú thích A. B. C.

Bánh xe bé của 1 máy kéo có bán kính0,5m. Bánh xe lớn có bán kính là 1m. Hỏi khi bánh xe bé lăn được 10 vòng thì bánh xe lớn lăn đc bn vòng

5375-375 x (432 : 9 - 40) =.......................................

Nhận xét tác phẩm du kích tập bắn về nội dung,bố cục,đường nét,màu sắc

Giải nghĩa câu : "vạn sự khởi đầu nan" và cho bt đây là câu tục ngữ hay thành ngữ

Giải hộ em với ,tất cả bài trên em cảm ơn nhiều

đốt cháy hết hỗn hợp gồm 6,75 gam bột nhôm và 9,75g gam bột kẽm cần một lượng oxi vừa đủ được điều chế từ m gam KMnO4 a, các phản ứng ở trên đâu là phản ứng phân hủy đâu là phản ứng hóa hợp b, hỏi giá trị m là bao nhiêu?

Cần lấy bao nhiêu gam tinh thể CuSO4 .5 H2O và bao nhiêu gam dung dịch CuSO4 4% để điều chế 500g dung dịch CuSO4 8%: A. 33,5g tinh thể và 66,5g B. 33,4g tinh thể và 66,6g C. 33,33g tinh thể và 466,67g D. 34g tinh thể và 66g

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