// PascalABC.NET 3.3, сборка 1611 от 06.01.2018 // Внимание! Если программа не работает, обновите версию! // Не знаю, есть ли какая то разница между векторами и массивами в Паскале, поэтому написал с массивом begin var a:=ReadArrInteger('Введите элементы вектора', 20); Writeln('Сумма положительных элементов -> ', a.Where(t -> t > 0).sum); Writeln('Сумма отрицательных элементов -> ', a.Where(t -> t < 0).sum); Writeln('Произведение суммы пложительных чисел на минимальный элемент -> ', a.Where(t -> t > 0).sum * a.Min); Writeln('Произведение суммы отрицательных чисел на минимальный элемент -> ', a.Where(t -> t > 0).sum * a.Min); Writeln('Сумма между min и последним элементом вектора -> ', a.Where((v,i)-> i > a.IndexMin).Sum); a:= a[:15]+a[16:]; Writeln(a); end.
![Код на паскаль дан вектор а[1: 20] а) найти сумму положительных чисел и сумму отрицательных чисел б)](/tpl/images/0853/5075/dc51a.jpg)
Я конечно не АС паскаля, но вроде бы int64
ответ: int64