Составить программу. Даны два числа, найти разность квадрата первого и удвоенного второго.
Ответы на вопрос:
program a1; var y: array[1..14] of integer; k,s1,s2: byte; miny,maxy,m: integer; begin writeln('vvedite massiv y: '); {просим ввести массив} for k: =1 to 14 do read(y[k]); {записываем массив} s1: =0; s2: =0; {счётчики на 0} miny: =y[1]; {присваиваем первому значению } for k: =2 to 14 do begin if y[k] < miny then degin miny: =y[k]; s1: =s1+1; end; {если есть меньше, то присваиваем} maxy: =y[1]; {присваиваем второму значению > < } for k: =2 to 14 do begin if y[k] > maxy then degin maxy: =y[k]; s2: =s2+1; end; {если есть больше, то присваиваем} m: =y[s1]; {используя переменную m меняем местами элементы} y[s1]: =y[s2]; y[s2]: =m; writeln('novyi massiv: '); for k: =1 to 14 do write(y[k],' '); {выводим новый массив} readln end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Vinner050829.01.2022 08:07
-
ЛиЗоЧкА19829.09.2020 23:42
-
MaksRomanov103.07.2021 01:31
-
yuliamoisei29.04.2023 16:57
-
zulyarakhimovaa27.11.2022 23:58
-
mlphappyme03.02.2020 12:07
-
Polina01102004012.05.2022 16:17
-
yannappp130.11.2022 00:24
-
wonder133701.05.2022 23:49
-
zhenyakudryash28.06.2022 19:04
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.