Question

HELPPPP//HELLLPPP
Помогите написать программу в паскаль, пожалуйста.
В массиве A[1..6] найти сумму положительных элементов, найти сумму положительных элементов, которые которые находятся в диапазоне от -1 до 5 включительно.

Answer 1

PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018

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

begin

 var a := ArrRandom(6, -10, 10);

 a.Println;

 Writeln('Сумма положительных ', a.Where(t -> t > 0).Sum);

 Writeln('Сумма положительных на [-1;5] ',

   a.Where(t -> (t > 0) and t.InRange(-1, 5)).Sum);

end.

Пример

3 -2 -2 7 3 6

Сумма положительных 19

Сумма положительных на [-1;5] 6

Answer 2

Пожалуйста)

Answer 3

Как Вы понимаете, надеюсь) любые условия просто меняются внутри Where

Answer 4

спасибо за пояснение)

Answer 5

Тогда еще напишу, что в ArrRandom - количество элементов и границы изменения.

Answer 6

Массив сразу и создается нужного размера и типа, и заполняется.