Tin học Viết chương trình

[0972162987]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết chương trình Pascal nhập một dãy số tối đa 100 số, sau đó sắp xếp lại thứ tự tăng dần?

 

[Oralie]

Đây nha bạn

program (Nhập tên gì ở dây cx đc tùy bạn);;

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);

end;

for i:=1 to n-1 do

for j:=i+1 to n do

if A>A[j] then

begin

tg:=A;

A:=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:3);

readln;

end.