klavyeden son girilen sayıya kadar n tane sayı girilior(n<100) girilen sayılardan en büyük 3 sayıyı bulan program Nisan 27, 2008
Posted by programlama2000 in Turbo Pascal.Tags: c++, coder, hackers, odew, pascal, programlama, software, turbopascal, universite
trackback
USES CRT;
VAR
ADET:INTEGER;
DIZI:ARRAY[1..100] OF INTEGER;
J,K,L:INTEGER;
BEGIN CLRSCR;
WRITE(’KAC ADET SAYI GIRECEKSINIZ :’);READLN(ADET);
FOR J:=1 TO ADET DO
BEGIN
WRITE(J, ‘. SAYIYI GIRINIZ :’);READLN(DIZI[J]);
END;
FOR J:=1 TO ADET DO
BEGIN
FOR K:=J+1 TO ADET DO
BEGIN
IF DIZI[J] BEGIN
L:=DIZI[J];
DIZI[J]:=DIZI[K];
DIZI[K]:=L;
END;
END;
END;
FOR J:=1 TO 3 DO
BEGIN
WRITELN(J,’. BUYUK : ‘, DIZI[J]);
END;
READLN;
END.
Yorumlar»
No comments yet — be the first.