Откорректировать середину программы. необходимо найти сумму элементов массива, расположенных между первым и вторым положительными элементами. моя программа: var a: array[1..100]of real; i,n,k,p: integer; s: real; begin assign(input,'input.txt'); assign(output,'output.txt'); reset(input); rewrite(output); readln(n); for i: =1 to n do read(a[i]); i: =1; while(i< =n)and(a[i]< =0) do i: =i+1; if i> n then writeln('0') else begin k: =i; i: =n; while(i> =1)and(a[i]< =0)do i: =i-1; if i< 1 then writeln('0') else begin for i: =k+1to p-1 do s: =s+a[i]; writeln(s: 0: 3); end; end; close(input); close(output); end.

155

488

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

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

DenisРоссия

Информатика

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

readln(n); for i : = 1 to n do read (a[i]); i : = 1; while (i < = n) and (a[i] < = 0) do i : = i + 1; if i > n then writeln ('0') else begin k : = i; i : = i + 1; while (i < = n) and (a[i] < = 0) do i : = i + 1; if i > n then writeln ('0') else begin p : = i; for i : = k + 1 to p - 1 do s : = s + a[i]; writeln(s: 0: 3); end; end; что я сделал: после нахождения первого элемента не надо идти в конец и с конца перебирать в другую сторону. надо просто продолжить в том же направлении с того же места. и надо не забыть найденное значение сохранить в p - у вас она вовсе не инициализировалась.

CrazyBananaa

Информатика

4,4(73 оценок)

Вар, б, в: целое; г: массив [1 .. 10] из целого; начинатьдля ъ: = 1 до 10 сделатьначинатьнаписать ('bведите число', ь, ''); d [b]: = случайных (100) + 100; writeln (г [б]: 4); конец; б: = d [1]; с: = 1; для ъ: = 2 до 10 сделатьначинатьесли г [б]> тоначинать: = d [б]; с: = б; конец; закончить; написать ('самое большое число под номером', с, 'это число',); конец.

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

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

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

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

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

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

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

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

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

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