Дан массив K(N), N-12. В массиве есть один элемент, значение которого равно 100....

Question

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

Answer 1

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

begin
  var k:=ArrRandom(12,1,99);
  k[Random(0,11)]:=100; // присвоим 100 случайному элементу
  k.Println;
  var p:=k.FindIndex(x->x=100);
  Writeln('k[',p+1,']=100');
  Writeln('Сумма предшествующих элементов: ',k[:p].Sum)
end.

Пример
82 94 33 85 52 91 100 96 90 57 61 1
k[7]=100
Сумма предшествующих элементов: 437