Дан массив размера n. Вывести второй положительный элемент массива и его номер. нужна программа и блок схема задачи

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016

begin

 var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;

 var t:=a.Select((x,i)->Arr(x,i)).Where(e->e[0]>0).Skip(1)

   .Take(1).ToArray;

 WritelnFormat('A[{0}]={1}',t[0,1]+1,t[0,0])

end.

Тестовое решение

n= 10

29 -43 64 -81 -78 82 33 -52 85 22

A[3]=64

import sys

A = int(input())

B = int(input())

C = int(input())

D = int(input())

K = int(input())

def check(x, y):

   if abs(x) > K or abs(y) > K:

       return 0

   y += A

   if y >= K:

       return A - (y - K)

   x += B

   if x >= K:

       return A + B - (x - K)

   y -= C

   if y <= -K:

       return A + B + C - (-y - K)

   x -= D

   if x <= -K:

       return A + B + C + D - (-x - K)

   return -1

if check(0, 0) != -1:

   print(check(0, 0))

   sys.exit(0)

x = B - D

y = A - C

left = 0

right = 10 ** 9

while right - left > 1:

   mid = (left + right) // 2

   if check(x * mid, y * mid) == -1:

       left = mid

   else:

       right = mid

print(right * (A + B + C + D) + check(x * right, y * right))

Объяснение:

Очень старый конечно у Димы интернет, но задачу решать надо :)

Итак, мы знаем, что фотография весит 3 МБ, или же 1024 КБ, или же 8192 КБИТ. Сначала мы передаём данные с телефона на компьютер (не с же телекинеза будем отправлять сразу :) ) и видим, что скорость в КБИТ. Делим вес фотографии на скорость. 8192 / 128 = 2^13/ 2^7 = 2^13-7 = 2^6 = 64. 64 секунды он будет загружать фото на компьютер. Запоминаем. Но нам нужно еще отправить фотографию в интернет. Видим скорость в КБ. Значит снова делим: 1024 / 128 = 8. 8 секунд. Складываем оба времени: 64 + 8 = 72.

Он потратил всего 72 секунды.

Поставь лучший ответ тебе не сложно - мне приятно :)