Исправьте ошибки. найти произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами (паскаль) var i,n,i1,i2: longint; a: array[1..100] of real; amin,amax,p: real; begin assign (input,'input.txt'); assign (output,'output.txt'); reset (input); rewrite (output); readln(n); p: =1; for i: =1 to n do read (a[i]); amin: =a[1]; for i: =1 to n do if abs(amin)> =abs(a[i]) then begin amin: =a[i]; i1: =i; end; amax: =a[1]; for i: =1 to n do if abs(amax)< =abs(a[i]) then begin amax: =a[i]; i2: =i; end; if (i2> i1) and (i1+1< > i2) then for i: =i1+1 to i2-1 do p: =pa[i] else if (i1> i2) and (i1-1< > i2) then for i: =i1-1 downto i2+1 do p: =pa[i] else begin write('0'); end; write (abs(p): 0: 3); close (input); close (output); end. в ответе в выходном файле необходимо вывести 0.000, если между максимальным и минимальным по модулю элементом нет других элементов.

238

420

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

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

Pars1fal

Информатика

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

Var i, n: longint; a: array[1..10] of real; amin, amax, p: real; begin assign(output, 'output.txt'); rewrite(output); readln(n); if n = 2 then begin writeln('0 '); close(output); end else begin p : = 1; for i : = 1 to n do read(a[i]); amin : = a[1]; for i : = 1 to n do if amin > = abs(a[i]) then amin : = a[i]; amax : = a[1]; for i : = 1 to n do begin if amax < = a[i] then amax : = a[i]; end; if n > 2 then for i : = 2 to n - 1 do p : = p * a[i]; write(p: 0: 3); close(output); end; end.

sasha2442

Информатика

4,5(32 оценок)

number_list = []

for number in range(10):

number_list.append(int(input()))

second_list = []

for n in number_list:

if n % 3 == 0:

second_list.append(n)

amount = 0

for num in second_list:

amount += num

print(amount)

number_list = []

for number in range(10):

number_list.append(int(input()))

second_list = []

for n in number_list:

if n % 2 != 0:

second_list.append(n)

multiplication = 1

for num in second_list:

multiplication *= num

print(multiplication)

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.