Question

Для массива А, состоящего не более чем из 70 целых чисел найти сумму чётных элементов со значениями [C, D], C, D заданные числа.
Delphi
В принципе, как написать этот массив я знаю, но не могу никак понять, как вытащить значения из промежутка C, D. И, этот массив одномерный, как я понимаю? :(

Answer 1

Ну, через условные операторы. Раз понимаешь о чем речь, то вот фрагмент, который выполняет твою задачу. Объяви sum и i как integer

for i := 1 to 70 do

if (a[i] >= C) and (a[i] <= D) and (a[i] mod 2 = 0) then sum := sum + a[i];