// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger(5);
a.IndexesOf(t->t=2).Println
end.
Пример (внимание: индексация от 0)
7 2 6 2 2
1 3 4
begin
var a:=ArrRandom(10,-50,50); a.Println;
Writeln('S=',a.Where(x->x.IsEven).Sum)
end.
Пример
17 -42 -16 50 39 -25 49 3 -10 32
S=14
begin
var a:=ArrRandom(10,1,99); a.Println;
Writeln('Среднее искомых элементов: ',a.Where(x->x<50).Average)<br>end.
Пример
87 85 46 79 51 48 71 47 28 44
Среднее искомых элементов: 42.6