Viết chương trình nhập vào 1 dãy số nguyên có n phần tử a) Sắp xếp dãy theo thứ tự tăng dần. b) Nhập vào 1 dãy số x bất kì, đếm số lần xuất hiện của nó trong dãy trên. c) In ra màn hình số phần tử bé hơn hoặc bằng x. d) In ra màn hình số phần tử lớn hơn x. Giúp mình với ạ !!!

trathiyen74

2 năm trước

Viết chương trình nhập vào 1 dãy số nguyên có n phần tử a) Sắp xếp dãy theo thứ tự tăng dần. b) Nhập vào 1 dãy số x bất kì, đếm số lần xuất hiện của nó trong dãy trên. c) In ra màn hình số phần tử bé hơn hoặc bằng x. d) In ra màn hình số phần tử lớn hơn x. Giúp mình với ạ !!!!

Loga Sinh Học lớp 12

0 lượt thích 15 xem

1 trả lời

Thích Trả lời

minhnghiamk

Program NhatNgu;
Uses crt;
Var A: array[1..10000] of longint;
n,i,x,dl,db,j,tg,dem: longint;
Begin
Clrscr;
Write('Nhap n, x: '); Readln(n,x);
dl:=0; db:=0;
For i:=1 to n do
Begin
Write('A[',i,'] = '); Readln(A[i]);
If A[i]=x then inc(dem);
If A[i]<=x then inc(db)
Else inc(dl);
End;

For i:=1 to n-1 do
For j:=i+1 to n do
If A[i]>A[j] then
Begin
tg:=A[i];
A[i]:=A[j];
A[j]:=tg;
End;

For i:=1 to n do Write(A[i],' ');
Writeln;
Writeln('Xuat hien ',dem,' lan');
Writeln('Co ',db,' phan tu be hon hoac bang ',x);
Writeln('Co ',dl,' phan tu lon hon ',x);
Readln
End.

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

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

mn làm hộ mình câu 4 viết văn nhé

Giúp mình với mình đang cần gấp

Bài 1 : Tính a ) 6x^2(3x^2-4x+5) b ) (x-2y) (3xy+6y^2+x) c ) (18x^4y^3-24x^3y^4+12x^3y^3) : (-6x^2y^3) Bài 2 : Phân tích đa thức thành nhân tử : a ) 3x^2-3xy-5x+5y b ) x^2+4x-45 c ) 3y^3+6xy^2+3x^2y d ) x^3-3x^2-4x+12 e ) x^3+3x^2-3x-1 f ) x^2-3x+xy-3y g ) x^2-2xy+y^2-4 h ) x^2-2xy+y^2-z^2 i ) 3x^2+6xy+3y^2-3z^2

Mẹ An mang đủ số tiền vào siêu thị để mua 24 hộp sữa, nhưng hôm nay siêu thị giảm giá mỗi hộp 25%. Hỏi mẹ An đã mua được bao nhiêu hộp sữa ?

Viết đoạn văn diễn tả tâm trạng Kiều. Chú ý: Tâm trạng khi quyết định bán mình chuộc cha. Khi nhìn thấy Mã Giám Sinh. Khi bị ép thử tài. Khi chứng kiến cảnh "mặc cả giữa" bà mối và Mã Giám Sinh

Làm 9.2 ko giống cách làm mạng

Hãy giới thiệu đôi nét về tác giả Nguyễn Du của tác phẩm Truyện Kiều.( Ko sao chép mạng, phải tự làm) Mọi người ơi giúp em với em cần gấp

GIẢI NHANH , ĐÚNG CHO IÊM Ậ C Cho phân số 49/67 . Hỏi phải chuyển từ tử số xuống mẫu số bao nhiêu đơn vị thì ta được phân số mới có giá trị bằng 1/3 CẦN TRƯỚC 6:45 Ạ

nêu ví dụ vừa thể hiện tình yêu thương con người và đoàn kết tương trợ trả lời đúng mình vote cho

Giúp em bài 1 Hình với ạ 👉🏻👈🏻 Em cảm ơn

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