Дан массив c целочисленный состоящий из 20 элементов каждый элемент которого вычесляется по формуле ci=i*-5 ; вывести данный массив и вывести новый массив элемент которого формируется таким образом : 1 элемент равен последнему элементу, 2 элемент равен перед последнему элементу
153
407
Ответы на вопрос:
Программа, которая использует два массива var c, a: array[1..20] of integer; i: integer; begin write('первый массив '); for i : = 1 to 20 do begin c[i] : = i * (-5); write(c[i], ' '); end; writeln; write('преобразованный массив '); for i : = 1 to 20 do begin a[i] : = c[20 - i + 1]; write(a[i], ' '); end; end.или программа не использующая два массива, а просто переворачивающая первыйvar c: array[1..20] of integer; i: integer; begin write('первый массив '); for i : = 1 to 20 do begin c[i] : = i * (-5); write(c[i], ' '); end; writeln; write('преобразованный массив '); for i : = 20 downto 1 do write(c[i], ' '); end.обе программы работают!
Сделать эту можно двумя способами. первый - чисто арифметический. второй - более хитрый, через операции над строками. мы пойдем вторым путем, он короче и практичней, такой код будет требовать меньше ресурсов машины для реализации (что незаметно в таких маленьких , но довольно критично в реальной жизни, поэтому учимся писать дальновидные коды). var n: longint; function mindigit(n: longint): integer; var s,a: string; c,i: integer; begin str(n,s); a: =s[1]; for i: =2 to length(s) do if s[i]< a then a: =s[i]; val(a,n,c); mindigit: =n; end; function maxdigit(n: longint): integer; var s,a: string; c,i: integer; begin str(n,s); a: =s[1]; for i: =2 to length(s) do if s[i]> a then a: =s[i]; val(a,n,c); maxdigit: =n; end; begin readln(n); writeln(mindigit(n),' ',maxdigit(n)); end.по факту переменную "c" можно убрать из функций и использовать вместо нее уже не нужную в конце "i", таким образом избавившись от одной переменной. но это не принципиально на самом деле, к тому же так понятней, какая переменная за что отвечает.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
yanavyskubina30.08.2022 00:50
-
323156125.03.2023 17:32
-
Котан11220.08.2022 13:09
-
VaniLikaK22.04.2023 19:06
-
TeT9l3uHa09.08.2020 15:59
-
padpirigov021.01.2021 21:13
-
ангел80913.10.2021 15:55
-
akotkina109.12.2021 05:00
-
Рома204306.05.2023 03:59
-
герман12334444423.05.2020 15:48
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.