22 Mayıs 2012, 15:08:42

Reklam Ve Sponsor
« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: En Küçük Sayı ( PASCAL )  (Okunma sayısı 103 defa)

Çevrimdışı ::.РįўεŋsєS.::

  • Süper Üye
  • ******
  • İleti: 1161
  • Puan +17/-0
  • Cinsiyet: Bayan
  • Biz Bir HEP'iz...
    • Biz Bir HEP'iz...
En Küçük Sayı ( PASCAL )
« : 30 Eylül 2009, 02:06:51 »
uses crt;
var
sayi:array[1..10]of integer;
enk,i:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write(i,'. Sayiyi Giriniz...: ');
readln(sayi);
end;
enk:=sayi[1];
for i:=2 to 10 do
begin
if sayi<enk then
enk:=sayi;
end;
writeln;
writeln('En Kucuk Sayi...: ',enk);
readln;
end.
Kayıtlı
Add This Thread To:
  digg  slashdot  delicious  technorati  facebook  twitter  google  google





Hatay Ticaret Meslek Lisesi

En Küçük Sayı ( PASCAL )
« : 30 Eylül 2009, 02:06:51 »
Reklam Ve Sponsor
Sayfa: [1]   Yukarı git
« önceki sonraki »
Seo4Smf Tags:
 

Related Topics

  Konu / Başlatan Yanıt Son İleti
1 Yanıt
118 Gösterim 		Son İleti 25 Ağustos 2009, 01:07:45
Gönderen: ωнιѕρєяѕυℓтαη
25 Yanıt
481 Gösterim 		Son İleti 11 Ocak 2010, 12:54:07
Gönderen: İbrahim Kılıç
15 Yanıt
360 Gösterim 		Son İleti 16 Kasım 2009, 17:43:24
Gönderen: Süleyman Baltacı
5 Yanıt
148 Gösterim 		Son İleti 25 Kasım 2009, 17:39:01
Gönderen: Muhammet Dalgaç
0 Yanıt
77 Gösterim 		Son İleti 26 Kasım 2009, 17:28:06
Gönderen: мυяαт єяуαşαя
16 Yanıt
450 Gösterim 		Son İleti 03 Kasım 2010, 16:01:50
Gönderen: мєяνє σяαℓ
0 Yanıt
74 Gösterim 		Son İleti 08 Aralık 2009, 20:11:51
Gönderen: мυяαт єяуαşαя
8 Yanıt
265 Gösterim 		Son İleti 07 Ağustos 2010, 17:07:55
Gönderen: M.Asım Karadeniz
8 Yanıt
278 Gösterim 		Son İleti 18 Mayıs 2010, 15:16:51
Gönderen: Gülümser Almaz
0 Yanıt
101 Gösterim 		Son İleti 02 Nisan 2010, 06:50:51
Gönderen: ωнιѕρєяѕυℓтαη

Reklam Ve Sponsor