profile
Опубликовано 5 лет назад по предмету Информатика от fedorova111214

HELPP!!!
В массиве А[1..6] найти сумму положительных элементов массива, которые находятся в диапазоне от -1 до 5 включительно.

  1. Ответ
    Ответ дан Аккаунт удален

    PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

    Внимание! Если программа не работает, обновите версию!

    begin

     var a := ArrRandom(6, -1, 5);

     a.Println;

     Writeln('Сумма положительных значений равна ',

         a.Where(t -> t > 0).Sum)

    end.

    Пример

    2 5 1 0 -1 3

    Сумма положительных значений равна 11

Самые новые вопросы