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

Ответы 3

  • спасибо огромное!
    • Автор:

      monty
    • 6 лет назад
    • 0
  • // F#[<EntryPoint>]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: %A" (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    
    • Автор:

      abel
    • 6 лет назад
    • 0
  • program prog;uses crt;var a:array[1..100] of integer;    s,i:integer;beginfor i:=1 to 10 dobeginwrite('a[',i,'] = ');readln(a[i]);end;for i:=1 to 10 dobeginif (a[i]>=0) and ( a[i] mod 10 = 4) thens:=s+a[i]end;writeln;writeln('S = ', s);end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years