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

karinaklinaeva karinaklinaeva    3   13.07.2020 23:27    0

Ответы
adrian55RUS adrian55RUS  15.10.2020 15:20

Ну, через условные операторы. Раз понимаешь о чем речь, то вот фрагмент, который выполняет твою задачу. Объяви 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];

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика