Код на паскаль дан вектор а[1: 20] а) найти сумму положительных чисел и сумму отрицательных чисел б) найти произведение этой суммы на min элемент вектора. в) найти сумму элементов вектора между min и последним элементом вектора г) удалить 16-ый элемент вектора.

127

209

Посмотреть ответы 2

Ответы на вопрос:

Tricjt

Информатика

4,7(18 оценок)

// 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.