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];

Answer 2

Да, массив в вашем случае одномерный. Чтобы найти сумму чётных элементов массива, значения которых находятся в диапазоне [C, D], вам потребуется перебрать каждый элемент массива и проверить его на соответствие условиям.

Вот пример, как это можно сделать на Delphi:

delphiCopy code
program SumEvenElementsInRange;

var
  A: array[1..70] of Integer; // Ваш массив
  C, D: Integer; // Заданные значения C и D
  i: Integer; // Счётчик для перебора элементов массива
  sum: Integer; // Переменная для хранения суммы чётных элементов в заданном диапазоне

begin
  // Здесь заполняется массив A значениями

  // Задайте значения C и D
  C := 5; // Например
  D := 20; // Например

  sum := 0; // Инициализируем сумму

  // Перебираем элементы массива
  for i := 1 to Length(A) do
  begin
    // Проверяем, что элемент входит в заданный диапазон и является чётным
    if (A[i] >= C) and (A[i] <= D) and (A[i] mod 2 = 0) then
    begin
      // Если условия выполняются, добавляем значение элемента к сумме
      sum := sum + A[i];
    end;
  end;

  // Выводим сумму чётных элементов в заданном диапазоне
  WriteLn('Сумма чётных элементов в диапазоне [', C, ', ', D, ']: ', sum);

end.

Вы можете изменить значения C и D в соответствии с вашими потребностями. Программа будет перебирать каждый элемент массива, проверять его на соответствие условиям (входит в диапазон и является чётным), и при выполнении условий добавлять его значение к переменной sum. В конце программа выведет сумму чётных элементов, удовлетворяющих заданным условиям.