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.