PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018Внимание! Если программа не работает, обновите версию!begin var a:=ArrRandom(ReadInteger('n='),-10,10); a.Println; Writeln('Минимальный по модулю элемент равен ', a.Select(t->Abs(t)).Min); Writeln('Количество элементов, кратных 5, равно ', a.Where(t->t mod 5=0).Count); Write('Сумма искомых элементов равна '); var ai:=a.Indexesof(t->t>0); a[ai.First+1:ai.Last].Sum.Println;end.