• Вопрос по информатике:

    заполните массив размерностью 15 случайными числами из промежутка [-350;350] выведите его на экран в строку найдите произведение положительных элементов массива кратных 7

    • Автор:

      daphne

  • Ответ:

    // PascalABC.NET 3.3, сборка 1634 от 14.02.2018// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(15,-350,350); a.Println;  a.Where(t->(t>0) and (t mod 7=0)).DefaultIfEmpty.      Aggregate(1,(p,q)->p*q).Printlnend.Примеры-28 132 -60 336 297 199 -350 6 -236 341 -40 329 177 -174 240110544 48 -136 11 267 239 234 -224 333 -143 -78 319 -253 332 -59 -3030

    • Отвечал:

      daniak2dv
    • 0

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска