IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Bir Dizinin İkinci En Büyük Elemanını Diziyi Sıralamadan Bulan Program

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.

Kod:

 

 

 

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.