Question

Написать программу для нахождения величин S1,k1-сумма и количество элементов массива A(n) принадлежащих отрезку[a,b] S2,k2-сумма и количество элементов массива B(m) не принадлежащих отрезку [c,d] a,b,c,d-произвольные числа

Answer 1

PascalABC.NET 3.8

function SK(m: array of real; a, b: real) : (real, integer);

begin

 var (s, k) := (0.0, 0);

 foreach var d in m do

  if d.Between(a, b) then

   begin

     s += d;

     Inc(k)

   end;

 Result := (s, k)

end;

begin

var n := ReadInteger('n=');

 var mA := ReadArrReal('Массив А:', n);

 var (a, b) := ReadInteger2('Введите a и b:');

 var (s1, k1) := SK(mA, a, b);

 Println('S1 =', s1, '  k1 =', k1);

 n := ReadInteger('m=');

 var mB := ReadArrReal('Массив B:', n);

 (a, b) := ReadInteger2('Введите c и d:');

 var (s2, k2) := SK(mB, a, b);

 Println('S2 =', s2, '  k2 =', k2);

end.

Answer 2

Для нахождения суммы и количества элементов массивов, удовлетворяющих условиям, вы можете воспользоваться следующей программой на языке Python:

pythonCopy code
def calculate_sum_and_count(array, start, end):
    sum_result = 0
    count = 0

    for element in array:
        if start <= element <= end:
            sum_result += element
            count += 1

    return sum_result, count

# Массив A
A = [1, 5, 7, 9, 12, 15, 20, 25]
a = 5
b = 15

# Массив B
B = [2, 4, 6, 8, 10, 12, 14, 16]
c = 5
d = 15

# Вычисляем S1 и k1 для массива A
S1, k1 = calculate_sum_and_count(A, a, b)

# Вычисляем S2 и k2 для массива B
S2, k2 = calculate_sum_and_count(B, c, d)

print(f"S1: {S1}, k1: {k1}")
print(f"S2: {S2}, k2: {len(B) - k2}")

Просто замените массивы A и B на ваши собственные массивы и значения a, b, c и d на желаемые значения. Программа вычислит суммы и количество элементов, удовлетворяющих условиям, и выведет их на экран.