Мы покупаем на рынке арбузы себе домой.Мы хотим выбрать самый большой, то есть самый тяжёлый арбуз.Всего есть N арбузов, вес которых задан . Сначала вводится N -целое положительное число не превышающее 100- количество арбузов,далее вводится N чисел - вес Арбузов на прилавке по порядку.Какого веса арбуз мы принесём домой? Какой будет этот арбуз по номеру?
let rec getNumberFromConsole _ =
let str = System.Console.ReadLine()
let mutable number = 0
if System.Int32.TryParse(str, &number)
then number
else getNumberFromConsole null
let rec getCommonNumber number1 number2 commonNumber multiplier =
if number1 > 0 && number2 > 0
then getCommonNumber (number1 / 10) (number2 / 10) (commonNumber + (number1 % 10) * 10 * multiplier + (number2 % 10) * multiplier) (multiplier * 100)
else commonNumber
[<EntryPoint>]
let main argv =
let number1 = getNumberFromConsole null
let number2 = getNumberFromConsole null
let result = getCommonNumber number1 number2 0 1
System.Console.WriteLine result
System.Console.ReadKey true |> ignore
0