Вмассиве с={1,2,-3,0,-1,-7,-9,9,10,-3} найти количество соседств двух положительных и количество соседств двух отрицательных элементов массива,проверьте программу , что неправильно ? var c: array[1..10]of integer = (1,2,-3,0,-1,-7,-9,9,10,-3); i: =i+1; i,n,t,k: integer; begin function controll (c: array): boolean; var i: integer; if ((c[i]> 0) and (c[i+1]> 0)) or ((c[i]< 0)and (c[i+1]< 0)) then k: =k+1; end. close (f); repeat write('c: '); readln(c); until (c> 0)and(c< =10); writeln('введите ',c,' элементов'); for i: =1 to 10 do i: =i+1; read(c[i]); for i: =1 to 10 do i: =i+1; write('c: '); readln(c); repeat write('c: '); readln(c); until (c< -3)and(c< =2); writeln('введите ',c,' элементов'); c: boolear; writeln('c'); end. //основная программа close file (f).

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

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

• Сколько это стоит?
  Проект находиться на стадии тестирования и все услуги бесплатны.

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

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