innapulora
Опубликовано 6 лет назад по предмету Информатика от innapulora


Задания в приложениях. На Паскале , пожалуйста.

  1. Ответ
    Ответ дан Аккаунт удален
    PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018Внимание! Если программа не работает, обновите версию!№1begin  var a:=ArrRandom(15,-50,50); a.Println;  a.Where(t->t>10).Sum.Printlnend.Пример-39 -31 41 13 2 -33 25 43 -33 -27 8 -49 -21 -9 38160 №2begin  var a:=ArrRandom(12,-50,50); a.Println;  a.Where(t->t>5).Aggregate(BigInteger(1),(p,q)->(p*q)).Printlnend.Пример-44 -22 -44 27 -3 -18 33 -14 -32 13 5 -911583 №3begin  var a:=ArrRandom(20,-50,50); a.Println;  a.Transform(t->t<0?t*3:t); a.Printlnend.Пример-37 -46 -19 50 44 -36 46 -45 19 -35 18 -9 9 32 -34 7 32 7 -11 20-111 -138 -57 50 44 -108 46 -135 19 -105 18 -27 9 32 -102 7 32 7 -33 20
Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц