До ть скласти блок-схему за зразко..
Program Example_314_2;
Uses crt;
Const N=100;
Type Masiv = array[1..N] of real;
Var A:Masiv; {A - масив для зберігання даних чисел}
i,count:byte; {і - змінна циклу, count - кількість сусідств}
Begin
Randomize;
Clrscr;
count:=0;
For i:=1 to N do
Begin A[i]:=random*100-random*50; {Заповнення масиву випадковими дійсними числами}
Write(A[i]:8:2); {Виведення масиву на екран для контролю правильності роботи
програми}
End;
For i:=1 to N-1 do
Begin If (A[I]<0) and (A[I+1]>0) or (A[I]>0) and (A[I+1]<0) then count:=count+1;
End;
Writeln;
Writeln('Кількість заданих сусідств ',count); Readkey; {Затримка зображення на екрані} End.
113
478
Ответы на вопрос:
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
кузя17730.12.2022 20:07
-
Ramazan140309.01.2021 18:05
-
игорь78022.05.2023 06:10
-
Face20014.07.2020 20:39
-
vasta555555511.08.2022 12:02
-
Miya5koka14.06.2020 22:38
-
втклр03.08.2020 19:20
-
nonolo0722.05.2022 09:40
-
mlphappyme09.03.2023 21:27
-
tyy618.09.2021 19:51
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.