Question

Даны натуральное число n и целые числа q, a1,…,an, где n≤1000. Если в последовательности a1,…,an есть хотя бы один элемент, равный q, то получить сумму всех элементов, следующих за первым таким элементом; в противном случае ответом должно служить количество отрицательных элементов.

Answer 1

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
  var q:=ReadInteger('q=');
  var p:=a.FindIndex(t->t=q);
  if p>=0 then Writeln('s=',a?[p+1:].Sum)
  else Writeln('Отрицательных: ',a.Where(t->t<0).Count)
end.

Пример
n= 20
36 -82 30 43 -46 70 88 50 -26 -98 -44 7 86 -62 60 59 67 -55 74 -11
q= 70
s=195