11.5.rb

   1 =begin\r
   2 pole = [1,2,3,4,5,6,7]\r
   3 pole.each do |prvok|\r
   4   puts prvok\r
   5 end\r
   6 =end\r
   7 \r
   8 #napiste program, ktory cita zo vstupu retazce. Vypis retazce podla ich dlzky.\r
   9 \r
  10 slova=[]\r
  11 puts "zadavaj slova, ked uz bude stacit ta nic nepis,len daj enter"\r
  12 slovo=gets.chomp\r
  13 until (slovo=="")\r
  14   slova.push(slovo)\r
  15   slovo=gets.chomp\r
  16 end\r
  17 pocet_slov = 0.to_i\r
  18 i = 0.to_i\r
  19 dlzka_slova = []\r
  20 if (i<pocet_slov)\r
  21   dlzka_slova[i] = slova[i].length\r
  22   i = i+1\r
  23 end\r
  24 j = 0.to_i\r
  25 if (dlzka_slova[j] < dlzka_slova[j+1])\r
  26   dlzka_slova.push(dlzka_slova[j])\r
  27   dlzka_slova[j] = ""\r
  28   dlzka_slova.compact\r
  29   j = j+1\r
  30 end\r
  31 puts dlzka_slova