Question

Дана последовательность натуральных чисел a ,..a_1 и целое число х. Если в последовательности a ,..a_1 есть хотя бы один член, равный х, то получить сумму всех членов, следующих за первым таким членом; в противном случае ответом должно быть сообщение «не найдено!».

Answer 1

Pascalvar x, a, sum, n: integer; b: boolean; begin Write('Введите x: '); Read(x); Write('Введите длину последовательности: '); Read(n); Write('Введите элементы последовательности: '); for var i := 1 to n do begin  Read(a);  if b then sum += a;  if a=x then b := True end; if b then Write(sum) else Write('не найдено!') end.

Пример работы: