Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

В МАССИВЕ ИЗ 10 НАЙТИ СУММУ ПОЛОЖИТЕЛЬНЫХ ЧИСЕЛ, ОКАНЧИВАЮЩИХСЯ НА 4
ЭЛЕМЕНТЫ МАССИВА ЦЕЛЫЕ ЧИСЛА

Ответ оставил Гость

// F#
[]
let main argv =
    let getRandomCollection n =
        let rand = new System.Random()
        Array.map (fun x -> rand.Next 100 - 50) [| 1..n |]
    let inputArray = getRandomCollection 10
    printf "array: n%An" (inputArray)
    let resultSum =
        inputArray
        |> Array.filter (fun x -> x > 0 && x % 10 = 4)
        |> Array.sum
    printf "sum: %d" resultSum
    System.Console.ReadKey true |> ignore
    0