NOTHING_9009
19-02-2012, 00:20
đề bài
viết chương trình nhập 1 mảng gồm n số thực sắp xếp mảng theo chiều tăng dần và in kết quả.em chép lại bằng tay cần gấp lắm mong các anh giúp em nhanh với.câu hỏi của em là sao cái phần tử to nhất lại ko hiện ra ở cuối cùng?
bài làm của em
program bai1;
uses crt
var a:array [1..100] of integer;i,j:integer;tg:real;
begin
clrscr;
write('nhap so phan tu');readln(n);
for i:=1 to n do
begin
write('a[,i,']=');readln(a[i]);
end;
for i:=1 to n 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;
write('mang sau khi sap xep la');
for i:=1 to n do
writeln('a[,i,']=',a[i]);
readln;
end.
viết chương trình nhập 1 mảng gồm n số thực sắp xếp mảng theo chiều tăng dần và in kết quả.em chép lại bằng tay cần gấp lắm mong các anh giúp em nhanh với.câu hỏi của em là sao cái phần tử to nhất lại ko hiện ra ở cuối cùng?
bài làm của em
program bai1;
uses crt
var a:array [1..100] of integer;i,j:integer;tg:real;
begin
clrscr;
write('nhap so phan tu');readln(n);
for i:=1 to n do
begin
write('a[,i,']=');readln(a[i]);
end;
for i:=1 to n 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;
write('mang sau khi sap xep la');
for i:=1 to n do
writeln('a[,i,']=',a[i]);
readln;
end.