Viết chương trình nhập A gồm N phần tử chèn thêm x vào vị trí đầu tiên

Viết chương trình nhập A gồm N phần tử chèn thêm x vào vị trí đầu tiên

Viết chương trình nhập A gồm N phần tử chèn thêm x vào vị trí đầu tiên

Program Chen;

Uses crt;

Var i,spt, so,vitri: Integer;

A: Array[1..100] Of Integer;

Begin

    Clrscr;

    Writeln(' + CHEN MOT SO VAO MANG +');

    Writeln('-------------------------------');

    Write('-Co bao nhieu phan tu-: ');

    Readln(spt);

    For i:=1 To spt Do

      Begin

        Write('-Phan tu A[',i,']= '); Readln(a[i]);

      End;

    Writeln; Writeln('--MANG TRUOC KHI CHEN--');

    For i:=1 To spt Do Write(a[i]: 6); Writeln;

    Write('-Can che so: ');

    Readln(so); Write('-Vao vi tri 1: ');

    vitri:= 1;

    For i:=spt+1 Downto Vitri+1 Do    Writeln;

    a[i]:=a[i-1]; a[vitri]:=so; spt:=spt+ 1;

    Writeln('MANG SAU KHI CHEN');

    Readln;

    For i:=1 To spt Do Write(a[i]: 6);

End.
Bạn thấy bài viết này như thế nào?: 
Average: 1 (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

Filtered HTML

  • Các địa chỉ web và email sẽ tự động được chuyển sang dạng liên kết.
  • Các thẻ HTML được chấp nhận: <a> <em> <strong> <cite> <blockquote> <code> <ul> <ol> <li> <dl> <dt> <dd>
  • Tự động ngắt dòng và đoạn văn.

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.

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

 
Cẩm Đan phản ứng gay gắt khi được mời đi ăn với giá 16.000 USD

Cẩm Đan phản ứng gay gắt khi được mời đi ăn với giá 16.000 USD

Chân dài không ngại công khai lời đề nghị khiếm nhã trên trang cá nhân và bày tỏ quan điểm của riêng mình

iPad Mini Retina và iPhone giá rẻ sẽ bắt đầu xuất xưởng từ tháng 8

iPad Mini Retina và iPhone giá rẻ sẽ bắt đầu xuất xưởng từ tháng 8

Các báo cáo mới nhất cho biết, các lô hàng iPhone giá rẻ và iPad Mini Retina sẽ sớm được xuất xưởng vào khoảng thời gian cuối hè, tức tháng 8, để chuẩn bị cho sự ra mắt của cả hai thiết bị trong mùa thu này.

Facebook mở rộng trung tâm dữ liệu ở Oregon

Facebook mở rộng trung tâm dữ liệu ở Oregon

Facebook đang tiếp tục mở rộng trung tâm dữ liệu của mình tại Prineville, tiểu bang Oregon sớm hơn dự kiến nhờ một sự giúp đỏ nho nhỏ từ các nhà lập pháp và sự nâng cấp năng lượng cần thiết.

Công ty diệt chuột T&C

 

Diet con trung