Viết chương trình nhập mảng A gồm n phần tử và sắp xếp các phần tử theo thứ tự tăng dần. Giúp mình nhé! Ai trả lời đúng, xuất ra chương trình đc minh sẽ cho 5* và CTLHN ^^

hang1905

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 25 xem

1 trả lời

Thích Trả lời

nguyenminhngoc19112001

var n,i,j: integer;
a:array[1..10000] of real;
tam: real;
begin
write('Nhap so n: '); readln(n);
for i:=1 to n do
begin
write('a[',i,'] = '); readln(a[i]);
end;
tam:=0;
For i:=1 To N-1 Do
For j:=i+1 To N Do
If A[i]>A[j] Then
Begin
Tam:=A[i]; A[i]:=A[j]; A[j]:=Tam;
end;
writeln('mang sau khi sx:');
for i:=1 to n do
write(a[i]:5:2,' ');
end.

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

Namvi1310

uses crt;
var a : array[1..100] of integer;
n,i ,j,k : 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-1 do
for j:=i+1 to n do
if a[i]>a[j] then begin
k:=a[i]; a[i]:=a[j];a[j]:=k; end;
writeln('Phan tu mang A da sap xep 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

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

Zẻ nobita đang dùng rasengan zẻ đê mn ới

Mọi người làm cho mik câu 1 ý c và giải thích và mink cho ctlht

1.Ba and his friends ( study ).................English now. 2.John ( not read )........................ a book now. 3.What you ( do ).......................... tonight. 4.Jack and Peter ( work )........................ late today. 5.Silvvia ( not listen )....................... to music at the moment. 6. Maria ( sit ).................. next to Paul right now. 7.How many other student you ( study )...........................with today. 8.He always ( borrow ).................................me money and never ( give )...............back. 9.While I ( do )............................my housework, my husband ( read )...........................books. Mấy bn giúp mik vs , mik cần gấp nha.

Mai thi rùi :) Mn có thể tặng Vy một câu chúc được hơm =v= Vẽ anime/chibi học bài nìa ^^ Chúc mn buổi chiều vui vẻ 😊❤

Hoàn thành các PTHH sau: 1)N2O5+ H2O--->HNO3 2)BaCl2+ Al2(SO4)3--->BaSO4+ AlCl3 3)Ca(OH)2+HCl--->CaCl2+ H2O 4)K+ Cl2---> KCl 5)KMnO4--->K2MnO4+MnO2+ O2 6)Fe + HCl --->FeClx+ H

Giúp mình nhé 1. They will need time to _____the proposals we have submitted. A. lash outB. scroll overC. shrivelD. mull over 2. Their decision on whether I get the job or not will be based mostly on my academic _____. A. credentialsB. outstandingC. creditsD. credibility3. Retirement ages for men and women are currently at the center of a(n) _____debate. A. scorchingB. fieryC. flamedD. exploded 4. The new science teacher was popular because she was _____with her classes. A. lenientB. conductiveC. markedD. ameliorating 5. If she wins the prize again this year, it’ll be a real _____in her cap. A. nutshellB. gemstoneC. featherD. landmark 6. The inn owner was so generous. What we consumed was _____the house. A. on B. in C. off D. of

Chào mng mng giải thích cho em tại sao lại là ≥90 độ ạ và nếu lớn hơn 90 độ thì chuyện gì sẽ xảy ra? (GÓC NỘI TIẾP)

Make the question for the underlined words or phrases. 1. The man in the car is our new teacher. (Our new teacher) 2. I am in class 6a. (6a) 3. My brother gets up at a quater to six. (At a quater to six) 4. They are traveling to work by car. ( by car) 5. Mr.Hoang work in the city. (In the city)

Giải giúp mik vs ạ, đừng qtâm đáp án._. ( k qtrọng ai làm nhanh, miễn đúng 👍🏿 là đc) Thankss 😽

Truyền thuyết “Bánh chưng, bánh giầy” có những chi tiết tưởng tượng kì ảo nào, ý nghĩa của những chi tiết kì ảo đó giúp mk với

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