Question

в массиве А 20 есть хотя бы одно отрицательное значение элемента.вычислить сумму значений элементов массива после 1ого отрицательного значения.

Answer 1

var

  flag : boolean;

  i, s : integer;

  a : array [1..20] of integer;

begin

  for i := 1 to 20 do read (a[i]);

  s := 0; flag := false;

  for i := 1 to 20 do

    if flag then s := s + a[i]

    else if a[i] < 0 then flag := true;

  writeln (s);

end.

    

Answer 2

Для решения этой задачи нам понадобится перебрать элементы массива А и найти первое отрицательное значение. Затем мы сможем вычислить сумму значений элементов массива после этого отрицательного значения.

Начнем с объявления переменной sum и инициализации ее значением 0. Затем используем цикл for для перебора элементов массива А.

Внутри цикла проверяем, если текущий элемент массива А меньше 0, то это первое отрицательное значение. Используя флаг found_negative, мы можем проверить, было ли уже найдено отрицательное значение или нет.

Если отрицательное значение было найдено (found_negative = True), мы начинаем прибавлять значения элементов массива к переменной sum, чтобы вычислить сумму значений после первого отрицательного значения.

A = [20, 15, -10, 5, 3, -7, 12]
sum = 0
found_negative = False

for i in range(len(A)):
    if A[i] < 0:
        found_negative = True
    elif found_negative:
        sum += A[i]

print("Сумма значений элементов массива после первого отрицательного значения:", sum)

В данном примере, массив А содержит первое отрицательное значение -10. После него следуют значения 5, 3, -7 и 12. Сумма этих чисел равна 13.