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

Trâm Nguyễn Thị Ngọc said:

Mã:

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.

Bấm để xem đầy đủ nội dung ...

Thanh Tùng01 said:

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.

Bấm để xem đầy đủ nội dung ...