Ответы на вопрос:
Const n = 8; var a: array[1..n] of integer; i, t, im, max: integer; begin writeln('введите через пробел ', n, ' чисел'); max : = -32768; for i : = 1 to n do begin read(t); a[i] : = t; t : = (i + 1) * t; if max < t then begin max : = t; im : = i end; end; writeln('максимальное значение ', max, ' достигается как ', im + 1, '*a[', im, ']') end. тестовое решение: введите через пробел 8 чисел 4 -3 5 4 3 2 1 0 максимальное значение 20 достигается как 4*a[3]
//pascalabc.net 3.2 сборка 1318 //очередное решение "в лоб" var n,i,j,max: integer; s,curr: string; b: boolean=false; begin readln(n); max: =-1; s: =inttostr(n); for i: =1 to length(s) do begin curr: =''; for j: =i downto 1 do begin curr: =s[j]+curr; if frac(sqrt(strtoint(=0 then begin b: =true; if sqrt(strtoint(curr))> max then max: =round(sqrt(strtoint(; end; end; end; if b then writeln(max) else writeln('0'); end. пример ввода 1: 164 пример вывода 1: 8 пример ввода 2: 523 пример вывода 2: 0
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
vladrake19.05.2023 01:52
-
0898765432110.06.2023 13:51
-
041208katy24.06.2020 16:31
-
timatimakarov12.03.2023 07:18
-
Анастасия439004502.04.2022 00:26
-
Smilen201411.05.2021 00:35
-
Jenco03.03.2021 15:00
-
BlackCat16995804.03.2023 19:52
-
rootme19.04.2021 08:26
-
Amarcy01.01.2021 17:19
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.