Найти сумму нечетных чисел от 11 до 19.

11+13+15+17+19=75 сумма нечетнх, думаю что так.

var i, sum: integer; begin for i : = 11 to 19 do if(i mod 2 < > 0) then sum : = sum + i; writeln(sum); end.

from random import randint

numberslist = [randint(-10, 10) for i in range(10)]

print(numberslist)

for i in numberslist:

   if i > -1:

       print(i, end=' ')

Объяснение:

from random import randint  // Импортируем из библиотеки random функцию randint

numberslist = [randint(-10, 10) for i in range(10)]  // Создаем и заполняем список десятью случайными числами в диапазоне от -10 до 10

print(numberslist)  // Выводим список

for i in numberslist:  // Идем по каждому элементу списка

   if i > -1:  // Если элемент списка > -1

       print(i, end=' ') // Выводим через пробел

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