مرتب سازی حبابی :
var
i,j,temp:integer;
a:array[1..5]of integer;
begin
for i:=1 to 5 do
begin
readln(a[i]);
end;
for i:=1 to 5 do
begin
for j:= i+1 to 5 do
begin
if a[i]<a[j] then
begin...
با سلام. به زبان ساده جواب سوال 2
var
i:integer;
num:array[1..10]of integer;
sum,max:integer;
begin
for i:=1 to 10 do
begin
write('NO', i,' = ' );
readln(num[i]);
end;
for i:=1 to 10 do
begin
sum:=sum+num[i]...
بچه ها سلام. من کد نوشتن نظر دهی یا نظر دهی از طریق ایمیل رو بلد نیستم. کسی می تونه کمکم کنه؟
این آدرس سایتمه اگه می خوایید ببینید. wWW.OmidMusicOnline.Net قشمت نظراتش رو نمی دونم چطوری تکمیل کنم. می خوام هر کسی که نظر می ده توی همون صفحه نمایش بده و بتونم روشون مدیریت کنم. :w27:
ممنون می شم...
وه که با این عمر های کوته بی اعتبار
این همه غافل شدن از چون منی شیدا چرا
نازنینا ما به ناز تو جوانی داده ایم
دیگر اکنون با جوانان ناز کن با ما چرا؟
روز بزرگداشتاستاد شهریار گرامی باد. :w40: