Var a: array of integer g,j: byte; begin randomize; for j: =1 to 5 do begin a[j]: = random(9); writeln(a[j]); end; for j: =1 to 5 do begin for g: =5 down to j do begin if a[g-1] begin k: =a[j-1]; a[g-1]: =a[g]; a[g]: =k; for l: =1 to 5; end; for j: =1 to 5 do write(a[j]) and; and; end. проверьте на ошибки, и как составить программу ' найдите наибольшее и наименьшее в однородном массиве'.
208
343
Ответы на вопрос:
Много ошибок. уже в 1 строке программы 2 ошибки: три точки вместо двух и отсутствует точка с запятой в конце строки. ну и так далее. рабочий код из вашего может быть таким: var a: array [1..5] of integer; g, j, k, l: byte; begin randomize; for j : = 1 to 5 do begin a[j] : = random(9); writeln(a[j]); end; for j : = 1 to 5-1 do begin for g : = j+1 to 5 do begin if a[j] > a[g] then begin k : = a[j]; a[j] : = a[g]; a[g] : = k; end; end; end; for j : = 1 to 5 do write(a[j]); end.
1) вводить три равных натуральных числа - треугольник равносторонний. результат программы true ⇒ программа работает корректно 2) вводить три неравных натуральных числа - треугольник не равносторонний. результат программы false ⇒ программа работает корректно 3) ввести три нуля - треугольник не существует. результат программы true ⇒ программа работает некорректно 4) вводить три равных отрицательных числа - треугольник не существует. результат программы true ⇒ программа работает некорректно 5) ввести три равных или неравных вещественных числа - треугольник существует. результата программы нет (ошибка типов) ⇒ программа работает некорректно
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
дура5555524.07.2020 03:55
-
prencessviki11.01.2021 06:33
-
guast117.10.2022 03:19
-
egorivanov200012.03.2020 09:16
-
олжас20027.10.2022 02:58
-
alaaaaaaa05.10.2020 10:51
-
мот4302.07.2022 18:16
-
elvin3822.11.2022 08:19
-
progamesnester25.06.2021 18:32
-
maksivanchuk12301.07.2021 04:33
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.