Поделитесь своими знаниями, ответьте на вопрос:
Код на паскаль дан вектор а[1: 20] а) найти сумму положительных чисел и сумму отрицательных чисел б) найти произведение этой суммы на min элемент вектора. в) найти сумму элементов вектора между min и последним элементом вектора г) удалить 16-ый элемент вектора.
// Внимание! Если программа не работает, обновите версию!
// Не знаю, есть ли какая то разница между векторами и массивами в Паскале, поэтому написал с массивом
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.