Дана последовательность натуральных чисел a ,..a_1 и целое число х. Если в...

Question

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

Answer 1

Pascal

Ответ:

• var 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.

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

Comments

Забыл i вынести в глобальные, кому нужен Turbo/Free.
var x, a, sum, n, i: integer; b: boolean;
for i := 1 to n do