Tin học Tìm giá trị nhỏ thứ 2 trong mảng pascal

[Trần Thu Hằng]

[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.

Giúp mình bài này với ạ, mình cảm ơn :

Tìm giá trị nhỏ thứ 2 trong mảng pascal

 

[Trâm Nguyễn Thị Ngọc]

var
 a:array[1..100] of integer;
 i,j,tg,n:integer;
Begin
 readln(n);
 for i:=1 to n do
   readln(a[i]);
 for i:=1 to n-1 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('phan tu nho thu 2 la:',a[2]);
readln
End.

 

[Thanh Tùng01]

var
 a:array[1..100] of integer;
 i,j,tg,n:integer;
Begin
 readln(n);
 for i:=1 to n do
   readln(a[i]);
 for i:=1 to n-1 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('phan tu nho thu 2 la:',a[2]);
readln
End.

Tóm lại phần tử lớn thứ hai của mảnh này là a[2] à bạn?
Bạn xem lại thử, mình nghĩ code trên chưa chính xác thì phải.

 

[Trâm Nguyễn Thị Ngọc]

Tóm lại phần tử lớn thứ hai của mảnh này là a[2] à bạn?
Bạn xem lại thử, mình nghĩ code trên chưa chính xác thì phải.

Không sai đâu bạn, mình đã sắp xếp tăng dần nên a[ 1] là nhỏ nhất còn a[2] là nhỏ thứ 2