Nhập vào một mảng,nhập thêm vào một số X,sắp xếp các phần tử của mảng,in ra vị trí của số X sao cho không cho thay đổi phần sắp xếp phần tử.VD các phần tử là 7 5 2, X=6 in ra dòng 1 là 2 5 7 Dòng 2 in ra vị trí của X là 3

huongmai50508

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

dinhnam

uses crt;
var i,n,j,t,x:longint; a:array[1..1000000]of longint;
begin
clrscr;
write('Nhap so luong phan tu: ');readln(n);
write('Cac phan tu la: ');
for i:=1 to n do
begin
read(a[i]);
for j:=1 to i do
if a[i]<a[j] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end;
end;
readln;
write('Nhap X: ');readln(x);
for i:=1 to n do write(a[i],' '); writeln;
a[n+1]:=high(longint); a[n+1]:=high(longint);
i:=0;
while not((a[i]<x)and(x<a[i+1])) do inc(i);
writeln('Vi tri cua x la: ',i+1);
readln
end.

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

thuan2881999

uses crt;
var a:array[1..1000000] of int64;
n,i,j,t,x:longint;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
write('Nhap X: '); readln(x);
for i:=1 to n do write(a[i],' '); writeln;
a[n+1]:=high(int64);
i:=0;
while (x>a[i]) or (x>a[j]) and (a[i]>x) and (a[j]>x) do inc(i);
writeln('Vi tri cua ',x,': ',i);
readln;
end.

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

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

Vẽ mầm / mèo/......... NL : Thế giới của toy sắp chìm trong 1 màu đen vô vọng ....................U.U Bye mn nha =) Mong có ngày gặp lại =)

(x-y)^3 +(x-y)^2 +1/3(x-y) +1/27 Viết thành lập phương 1 tổng hoặc hiệu ( giúp mình với ạ )

tai con người có thể nghe được tần số bai nhiêu ? 20 Hz và 20 000 Hz được gọi là gì ?

Vẽ chibi full màu.,,,,,,,,,,,,,,,,

tìm hai số tự nhiên biết tổng của chúng bằng 34 tích của hai số đó bằng 145

“Joining an English Club does not help high school students improve their exam grades”. Do you agree or disagree with that statement? Write a paragraph of about 180 words to express your view Cho mình xin một vài ý tham khảo để viết bài với ạ, mình đang cần gấp, mình cảm ơn nhiều!

Vẽ đậu mầm/chibi/anime có ghi chữ " buồn ngủ quá"

các cách mở bài cho tác phẩm "Chiếc lược ngà"

Biện pháp đấu tranh sinh học liệu có ảnh hưởng có tính chất nguy hiểm đối vs con người hay k

trên bàn có 5 tấm thẻ , trên đó ghi các số 6 , 14 , 15 , 25 và 35 ( trên mỗi thẻ ghi mỗi số). Hai bạn Hùng và Yến , mỗi bạn lấy 2 trong 5 tấm thẻ đó. Biết rằng , tích các số ghi trên 2 tấm thẻ, mà mỗi bạn đã lấy là như nhau. Hỏi ở tấm thẻ còn lại là số mấy ?

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