Задача 1: Пользователь вводит число. Определить, содержит ли список данное число x. Если содержит, то вывести на экран число 7145, если не содержит, то вывести на экран число 5741.

Задача 2:
Задан список, который содержит 10 целых чисел. Найти сумму положительных элементов списка.

Задача 3:
Задан список из 10 целых чисел. Найти произведение элементов списка, которые являются нечетными числами.

Задача 4:
Задан список из 10 целых чисел. Найти элемент имеющий минимальное значение в списке.

Задача 5:
Задан список содержащий 10 целых чисел. Найти позицию элемента, который имеет минимальное значение.

#First

arr = list(range(0, 25))

n = int(input("Enter number: "))

if n in arr:

   print("7145")

else:

   print("5741")

#Second

arr = list(range(0, 11))

sum = 0

for i in arr:

   if arr[i] > 0:

       sum += arr[i]

   print(sum)

#Third

arr = list(range(0, 11))

s = 0

for i in arr:

  if arr[i] %2 != 0:

      s += arr[i]

print(s)

#Fourth

arr = list(range(0, 11))

print(min(arr))

#Fifth

arr = list(range(0, 11))

print(arr.index(min(arr)))

а)самый большой овал-танцоры

далее-актеры

и самый маленький- певцы 

в) 2 элемента. 

  вот первая программа. вторую сейчас пишу.

program p_1; var a,b: string; i,k: integer; begin k: =0; write('введите слово '); readln(a); write('введите символ '); readln(b); for i: =1 to length(a) do begin if a[i]=b then k: =k+1; if a[i]=b then writeln(i,' '); end; if k> =1 then writeln('да, встречается ',k,' раз, на позиции указанных сверху в столбик ')else writeln('нет'); end.