Question

массив k[200], необходимо найти сумму элементов, которые принадлежат промежутку a b и являются положительными
Помогите, пишу лабораторную, нужно срочно

Answer 1

Ответ:

(см. объяснение)

Объяснение:

Программа написана на языке PascalABC.Net:

##

var k: array of integer := ArrRandom(200);

var a: integer := ReadInteger('Нижняя граница > ');

var b: integer := ReadInteger('Верхняя граница > ');

k.Where(x->(x>=a) and (x>0) and (x<=b)).Sum.Println;

Задание выполнено!