Pascal programlama dilinde yazılmış bu programda verilen bir dizinin 2. en büyük elemanını diziyi sıralamadan bulan prosedür icra edilmiştir.Bu kısımda öncelikle en büyük sayı bulunmuş sonrasında bu sayının bulunduğu dizi elemanına -10000 değeri atanarak ikinci en büyük sayının bulunması amaçlanmıştır.

 
 
 
uses crt;
var
dizi :array [1..100] of integer;
i,k,max1,max2,b,j :integer;
ch:char;
 
procedure maksimum2;
begin
max1:=dizi[1];
for i:=2 to k do
  begin
  if max1 < dizi[i] then begin max1:=dizi[i]; j:=i; end;
  end;
 
dizi[j]:=-10000; 
max2:=dizi[1];
for i:=2 to k do
  begin
  if max2 < dizi[i] then max2:=dizi[i];
  end;
 
end;
 
 
begin
clrscr;
writeln('Dizi boyutunu giriniz..: ');
readln(k);
writeln('Dizi degerlerini giriniz..: ');
for i:=1 to k do begin readln(b); dizi[i]:=b; end;
maksimum2;
writeln('Dizinin maksimum elemani:  ', max1,' Dizinin maksimum ikinci elemani: ', max2);
readln;
end.