Даны натуральное число n, целые a, x1 , … , xn. С клавиатуры вводится число а. Если в последовательности x1 , ... , xn есть хотя бы один член, равный a , то получите сумму всех членов, следующих за первым таким членом; в против...
Даны натуральное число n, целые a, x1 , … , xn. С клавиатуры вводится число а. Если в последовательности x1 , ... , xn есть хотя бы один член, равный a , то получите сумму всех членов, следующих за первым таким членом; в противном случае ответом должно быть число -1.
Гость
Ответ(ы) на вопрос:
Гостьvar
x:array [1..1000] of integer;
a, n, i, j, sum: integer;
begin
read(n, a);
for i := 1 to n do
read(x[i]);
i := 1;
while (x[i] <> a) and (i <= n) do
inc(i);
if i > n then
writeln(-1)
else
begin
for j := i + 1 to n do
sum := sum + x[j];
writeln(sum);
end;
end.
Гость// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var x:=ArrRandom(ReadInteger('n='),1,99);
Writeln('Исходная последовательность'); x.Println;
var a:=ReadInteger('a=');
var i:=x.FindIndex(e->e=a);
if i<0 then Writeln(-1)
else
if i
Не нашли ответ?
Похожие вопросы