Viết chương trình nhập A gồm N phần tử xuất mảng giảm dần

Viết chương trình nhập A gồm N phần tử xuất mảng giảm dần

Viết Chương Trình nhập vào một dãy số nguyên có n phần tử. Sắp xếp theo thứ tự tăng dần và in kết quả ra màn hình.

program ct;

ues crt;

var A:array [1..1000] of integer;

      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.
Bạn thấy bài viết này như thế nào?: 
Average: 7.5 (2 votes)
Ảnh của Tommy Tran

Tommy owner Express Magazine

Drupal Developer having 9+ year experience, implementation and having strong knowledge of technical specifications, workflow development. Ability to perform effectively and efficiently in team and individually. Always enthusiastic and interseted to study new technologies

  • Skype ID: tthanhthuy

Bình luận (0)

 

Add Comment

Plain text

  • No HTML tags allowed.
  • Các địa chỉ web và email sẽ tự động được chuyển sang dạng liên kết.
  • Tự động ngắt dòng và đoạn văn.
CAPTCHA
This question is for testing whether or not you are a human visitor and to prevent automated spam submissions.
Image CAPTCHA
Enter the characters shown in the image.

Advertisement

 

jobsora

Dich vu khu trung tphcm

Dich vu diet chuot tphcm

Dich vu diet con trung

Quảng Cáo Bài Viết

 
Phần 2 xây dựng Responsive Theme trong Drupal 7

Phần 2 xây dựng Responsive Theme trong Drupal 7

The objective of this section is to make the primary menu a toggle menu for the mobile interface. i.e the menu renders on click in mobile devices and is horizontal on screens wider than 600px.

Automatically Update All Your Social Networks From Drupal

Tự động cập nhật nội dung lên Social Networks từ Drupal site

Would you like to be able to update your Drupal site and automatically send those updates to Twitter, Facebook, Linkedin, MySpace, Ning and dozens of other sites?

Cài đặt Apache, MySQL, phpMyAdmin trên VPS CentOS

Cài đặt Apache, MySQL, phpMyAdmin trên VPS CentOS

Đăng nhập vào VPS sử dụng quyền root.

Tomdesgin.vn

 

Drupal Services