В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
romancsosnin
romancsosnin
30.07.2022 02:49 •  Информатика

Это правелно или нет
у меня сор


Это правелно или нету меня сор

Показать ответ
Ответ:
Marshmallow123
Marshmallow123
04.04.2021 07:52

li = []

elements = 1

negative_index = 0

positive_index = 0

print("Введите 0 что бы остановить ввод")

while elements != 0:

   elements = int(input("Введите элементы списка\n"))

   li.append(elements)

li2 = li[:]

li2.sort()

length = li.__len__()

print(li)

for i in range(0, length-1):

   for j in range(length-1, 1, -1):

       if li2[i] * (-1) == li2[j]:

           for k in range(0, length-1):

               if li2[i] == li[k]:

                   negative_index = k

               if li2[j] == li[k]:

                   positive_index = k

if negative_index < positive_index:

   print("Индекс противоположного числа(1) ->", negative_index)

   print("Индекс противоположного числа(2) ->", positive_index)

elif negative_index == positive_index == 0:

   exit(0)

else:

   print("Индекс противоположного числа(1) ->", positive_index)

   print("Индекс противоположного числа(2) ->", negative_index)

P.S

Код не идеальный, но задачу выполняет

0,0(0 оценок)
Ответ:
влада220602
влада220602
25.08.2020 13:11
var i: integer; begin // С С С Вывод последовательности 1 3 5 7 9var i,x: integer; begin // С и промежуточной переменной x := 1; for i := 1 to 5 do begin write(x,' '); x := x + 2; end; writeln;   // С без промежуточной переменной for i := 1 to 5 do write(2*i-1,' '); writeln;   // С С Сумма и произведение введенных чиселКод на Pascalvar i: integer; s,p: real; x: real; begin writeln('Введите 10 чисел: '); s := 0; p := 1; for i := 1 to 10 do begin read(x); s := s + x; p := p * x; end; writeln('Сумма введенных чисел = ',s); writeln('Произведение введенных чисел = ',p); end.Код на PascalABC.NETvar s,p: real; begin writeln('Введите 10 чисел: '); s := 0; p := 1; for var i := 1 to 10 do begin var x: integer; read(x); s += x; p *= x; end; writeln('Сумма введенных чисел = ',s); writeln('Произведение введенных чисел = ',p); end.Вычисление n!Код на Pascalvar n,fact: integer; i: integer; begin write('Введите n (n<=13): '); readln(n); fact := 1; for i := 2 to n do fact := fact * i; writeln(n,'! = ',fact); end.Код на PascalABC.NETvar n: integer; begin write('Введите n (n<=13): '); readln(n); var fact := 1; for var i := 2 to n do fact *= i; writeln(n,'! = ',fact); end.Вычисление AnКод на Pascalvar n,i: integer; a,p: real; begin write('Введите a,n: '); readln(a,n); p := 1; for i := 1 to n do p := p * a; writeln(a,' в степени ',n,' = ',p); end.Код на PascalABC.NETvar n: integer; a: real; begin write('Введите a,n: '); readln(a,n); var p := 1.0; for var i := 1 to n do p *= a; writelnFormat('{0} в степени {1} = {2}',a,n,p); end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота