Tin học Tìm số lớn thứ 2 của mảng trong 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 với ạ:

Tìm số lớn thứ 2 của mảng trong pascal??

Mình cảm ơn trước :3

 

[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 lon thu 2 la:',a[2]);
readln
End.

 

[nguyen tran thanh nha]

var t,n,i,max1,max:longint;
a:array[1..100] of longint;
begin
readln(n);
for i:= 1 to n do readln(a);
max:= a[1];
for i:=2 to n do if max<a then max:= a;
if max= a[1] then max1:=a[2] else max1:= a[1];
for i:= 2 to n do if ( max1<a) and(a<> max) then max1:= a;
write('so lon thu 2 :',max1);
end.

 

[ItachiQN]

uses crt ;
var a : array[1..100] of integer ;
i , n,max1 , max2 : integer ;
begin
clrscr ;
readln(n);
for i := 1 to n do
begin
write('nhap so thu ' , i , ' ' );
readln(a);
end;
max1:= 0;
for i:=1 to n do
if a > max1 then
max1:=a;
max2:=0;
for i:=1 to n do
if (a > max2) and (a <> max1) then max2:=a;
writeln('so lon thu 2 : ' ,max2);
readln;
end.
Mấy bạn tham khảo nha .

 

[ItachiQN]

sửa a thành a hết nha mấy bạn ....................