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 i,k,max1,max2,b,j :integer; ch:char; procedure maksimum2; begin max1:=dizi[1]; for i:=2 to k do begin 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..: '); maksimum2; writeln('Dizinin maksimum elemani: ', max1,' Dizinin maksimum ikinci elemani: ', max2); readln; end.