Question

Дан одномерный массив, состоящий из 20 элементов. Найти сумму элементов массива, принадлежащих промежутку от А до В PASCAL

Answer 1

Const 
a = 10;
b = 20;
var c: array [1..20] of integer;
      sum,i:integer;begin
 sum:=0;
  for i:=1 to 20 do     begin
      read(c[i]);
      if c[i] in [a..b] then sum:=sum+c[i];
    end;
writeln('Сумму элементов массива, принадлежащих промежутку от ', a,' до ', b,': ', sum);
end.

Answer 2

Для нахождения суммы элементов массива, принадлежащих промежутку от A до B, вам нужно будет использовать цикл, чтобы пройти по всем элементам массива и проверить их значения на соответствие заданному диапазону. Вот пример кода на Pascal:

pascalCopy code
program SumInArrayRange;
var
  arr: array[1..20] of Integer;  // Объявляем массив из 20 элементов
  A, B: Integer;                 // Заданные значения A и B
  i, sum: Integer;

begin
  // Заполняем массив произвольными значениями (ваш код может заполнять массив как угодно)
  for i := 1 to 20 do
    arr[i] := i;  // Пример: массив заполнен числами от 1 до 20

  // Задаем значения A и B (промежуток)
  A := 5;
  B := 15;

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

  // Проходим по массиву и суммируем элементы в заданном диапазоне
  for i := 1 to 20 do
  begin
    if (arr[i] >= A) and (arr[i] <= B) then
      sum := sum + arr[i];
  end;

  // Выводим сумму
  writeln('Сумма элементов в промежутке от ', A, ' до ', B, ' равна ', sum);
end.

В этом коде мы объявляем массив arr из 20 элементов и заполняем его значениями от 1 до 20 (вы можете заполнить массив своими данными). Затем задаем значения A и B для промежутка, который вас интересует, и инициализируем переменную sum нулем. После этого мы используем цикл for для просмотра каждого элемента массива и суммируем только те элементы, которые находятся в заданном диапазоне. Наконец, выводим результат суммы на экран.