Question

Пользователь вводит целочисленный массив из 25 элементов . вычислить сумму элементов массива, меньших -12

Answer 1

//Pascal ABC.NET v3.0 сборка 1111
Const
 n=25;

Var
 ar:array[1..n] of integer;
 s,i:integer;
begin;
s:=0;
 for i:=1 to n do
  begin;
   readln(ar[i]);
   if ar[i]<12 then s:=s+ar[i];
  end;
writeln('Sum=',s);
end.

Пример ввода:
1
2
...
9
-10
-11
..
-19
20
21
..
25
Пример вывода:
Sum=-100

Answer 2

Чтобы вычислить сумму элементов массива, которые меньше -12, нужно выполнить следующие шаги:

1. Создать целочисленный массив из 25 элементов. Для этого можно использовать язык программирования, например, Python:

array = [0] * 25

2. Попросить пользователя ввести значения элементов массива. Для этого можно использовать цикл, который будет запрашивать ввод 25 раз:

for i in range(25):
    array[i] = int(input("Введите элемент массива: "))

3. Создать переменную sum_less_than_minus_12 и инициализировать ее нулем. Она будет использоваться для хранения суммы элементов массива, которые меньше -12:

sum_less_than_minus_12 = 0

4. Пройти по всем элементам массива и проверить, является ли каждый элемент меньше -12. Если да, то добавить его к переменной sum_less_than_minus_12:

for element in array:
    if element < -12:
        sum_less_than_minus_12 += element

5. Вывести результат:

print("Сумма элементов массива, меньших -12, равна:", sum_less_than_minus_12)

Таким образом, после выполнения вышеуказанных шагов, программа выведет сумму элементов массива, которые меньше -12.