برنامه ای بنویسید که ۱۰ عدد را دریافت و در ارایه ذخیره کند و سپس انها را با روش مرتب سازی حبابی مرتب نماید

;program p1

;uses crt

var

;a:array[1..10] of integer

;i,j,p:integer

begin

;clrscr

for i:=1 to  10 do

;([readln(a[i

for i:=1 to 9 do

begin

for j:=i+1 to 9 do

if a[i]>a[j] then

begin

;[p:=a[i

;[a[i]:=a[j

;a[j]:=p

;end

;([writeln(a[i

;end

;writeln

;readln

.end

نظرات شما عزیزان:

نام :

آدرس ایمیل:

وب سایت/بلاگ :

متن پیام:

نظر خصوصی

 کد را وارد نمایید:

 

 

 

عکس شما

آپلود عکس دلخواه: