Question

Дан массив К(N), N=12. Известно, что в массиве есть один элемент, значение которого равно 100. Определить его порядковый номер. Вычислить сумму значений элементов массива, стоящих в массиве перед элементом, значение которого равно 100.

Answer 1

var

i, imax, sum: integer;

mas: array[1..12] of integer;

begin

for i:=1 to 12 do

read(mas[i]);

writeln;

for i:=1 to 12 do

if (mas[i]=100) then

begin

 imax:= i;

 break;

end;

for i:=1 to imax-1 do

inc(sum, mas[i]);

write('Сумма = ', sum);

end.

Answer 2

Для нахождения порядкового номера элемента со значением 100 в массиве и вычисления суммы значений элементов, стоящих перед ним, нужно пройтись по массиву и найти этот элемент. Здесь предполагается, что массив индексируется с 1 до N.

Вот пример алгоритма на псевдокоде для выполнения этой задачи:

mathematicaCopy code
Function FindIndexAndSum(array, N):
    index_with_value_100 = -1
    sum_of_elements_before_100 = 0

    For i = 1 to N:
        if array[i] == 100:
            index_with_value_100 = i
            Exit For
        else:
            sum_of_elements_before_100 = sum_of_elements_before_100 + array[i]

    return index_with_value_100, sum_of_elements_before_100

End Function

Теперь можно использовать эту функцию для решения вашей задачи, предполагая, что у вас уже есть массив K с N элементами:

mathematicaCopy code
N = 12
K = [здесь перечислите ваши элементы массива K]

index, sum_before_100 = FindIndexAndSum(K, N)

print("Порядковый номер элемента со значением 100:", index)
print("Сумма значений элементов перед элементом со значением 100:", sum_before_100)

Обратите внимание, что если в массиве есть более одного элемента со значением 100, данная функция найдет только первый из них. Если необходимо найти все вхождения 100, то задача будет немного сложнее и требует другого подхода.