Chương trình nhập n số thực từ bàn phím sau đó sắp xếp và in ra màn hình dãy số đó theo thứ tự không giảm n được nhập từ bàn phím

vuthang021981

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 23 xem

1 trả lời

Thích Trả lời

tuankudo15

ues crt;
var a:array [1..100] of real;
i,j,n,tg:integer;
begin

clrscr;
   write('Nhap so phan tu n: '); readln(n);
   for i:=1 to n do
   begin
writeln('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
   tg:=A[i];
   A[i]:=A[j];
   A[j]:=tg;
end;
   writeln('Day so sap xep theo thu tu tang dan la: ');
   for i:=1 to n do
   write(A[i]:3);
readln;
end.

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

baodinhxuantruonga

program phuongt;
uses crt;
var A: array[1..500] of integer;
n, t, j, i: integer;
begin
clrscr;
write('Nhap n = '); readln(n);
s:=0;
for i:=1 to n do
begin
write('A[', i, '] = '); readln(A[i]);
end;
for i:=1 to n-1 do
for j:=1+i to n do
if A[i]>A[j] then
begin
t:=A[i];
A[i]:=A[j];
A[j]:=t;
end;
write('Sap xep: ');
for i:=1 to n do write(A[i]:3);
readln
end.

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

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

Em đang cần giải cấp , đang ôn thi anh chị ạ

Kể tên 10 di sản văn hóa tiêu biểu tại Việt Nam (phi vật thể hay vật thể đề đc) Kể tên 10 di sản văn hóa đc công nhận là Di sản văn hóa thế giới? Hãy giới thiệu tóm tắt về một di sản văn hóa của địa phương em? Em sẽ làm gì để góp phần giữ gìn, bảo vệ di sản văn hóa?

đánh giá những mặt tích cực và hạn chế của luật pháp kinh tế và văn hóa của nước ta từ thế kỷ X-XIX

Đề 1 : Em hãy tả quang cảnh một phiên chợ theo tưởng tượng của em Đề 2 : Từ bài văn Lao Xao của Duy Khán , em hãy tả lại khu vườn trong một buổi sáng đẹp trời Đề 3 : Em đã từng gặp ông Tiên trong những truyện cổ dân gian , hãy miêu tả lại hình ảnh ông Tiên theo trí tưởng tượng của em Đề 4 : Hãy tả một nhân vật có hành động và ngoại hình khác thường mà em đã có dịp quan sát , đã đọc trong sách hoặc nghe kể lại MONG CÁC BẠN GIÚP MÌNH Ạ . CHỈ CẦN LÀM 1 TRONG 4 ĐỀ TRÊN THÔI Ạ . LƯU Ý : KHÔNG CHÉP MẠNG . NẾU CHÉP MẠNG SẼ KHÔNG VOTE 5 SAO + HAY NHẤT .

Mn ơi giúp e câu 2 với ạ. E cảm ơn ạ. 5 sao ạ

Bài 7. Cho tam giác DEF vuông tại D, tia phân giác EB của góc E cắt DF tại B. Kẻ vuông góc với EF tại I . Gọi H là giao điểm của tia ED và tia IB . a) Chứng minh: tam giác EDB = tam giác AEIB b) Chứng minh: tam giác HBF cân c) Chứng minh: DB<BF d) Chứng minh: EH+ EF + HF <2(BH+BE+BF) e Gọi K là trung điểm của HF. Chứng minh 3 điểm E, B, K thẳng hàng Giúp em câu d với ạ!

luc 8gio sang , mot nguoi di xe dap tu A voi van toc 12 km/ gio ve phia B . Sau 40 phut mot nguoi di xe may cung xuat phat tu A voi van toc 42 km / gio duoi theo nguoi di xe dap . Biet quang duong AB dai 18 km .Hoi hai nguoi gap nhau luc may gio

Hệ gồm hai vật A và vật B có khối lượng và tốc độ lần lượt là 2kg; 3m/s và 4kg; 4m/s. Biết hai vật chuyển động cùng phương ngược chiều với nhau. Động lượng của hệ này là ?

viết đoạn văn khoảng 150 chữ bàn về ý nghĩa của việc trân trọng cuộc sống mỗi ngày

tại sao đi máy bay thằng bị ù tại khi máy bay cất cánh và hạ cánh . Em có thể làm gì để bảo vệ tai mình

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