Паскаль.массивы. с информатикой 10 класс 1)дан массив из 30 элементов найти max> 0 и четных 2)min< 0 и нечетных 3)max среди элементов индекс кратных 7
238
374
Ответы на вопрос:
// pascalabc.net 3.1, сборка 1213 от 04.04.2016 begin var a: =arrrandom(30,-99,99); a.println; writeln(a.where(x-> (x> 0) and x.iseven).max) end. тестовое решение: 79 -52 -50 -48 0 -99 96 -70 39 -62 59 42 3 -17 17 87 -4 34 -87 34 -22 78 94 76 89 61 -71 -45 -30 3 96 // pascalabc.net 3.1, сборка 1213 от 04.04.2016 begin var a: =arrrandom(30,-99,99); a.println; writeln(a.where(x-> (x< 0) and x.isodd).min) end. тестовое решение: -81 98 86 94 -23 27 44 -52 -21 89 -52 58 -79 13 60 -39 90 99 -21 43 25 72 30 -17 -25 47 26 -41 -23 -41 -81 // pascalabc.net 3.1, сборка 1213 от 04.04.2016 begin var a: =arrrandom(30,-99,99); a.println; writeln(range(6,29,7).select(i-> a[i]).max) end. тестовое решение: -70 -16 -1 28 53 -44 -11 56 -54 78 -48 23 -85 29 -87 -30 24 -59 -78 63 -84 -82 -57 64 61 76 50 -37 81 -28 29 конечно, проще было все написать в одной программе: // pascalabc.net 3.1, сборка 1213 от 04.04.2016 begin var a: =arrrandom(30,-99,99); a.println; writeln(a.where(x-> (x> 0) and x.iseven).max); writeln(a.where(x-> (x< 0) and x.isodd).min); writeln(range(6,29,7).select(i-> a[i]).max) end. тестовое решение: 68 99 57 92 -12 -67 71 -23 58 26 20 -47 6 63 -54 -92 -91 -24 27 -25 75 94 88 65 32 15 -56 -58 -85 -78 94 -91 75
Держи: begin var arr: array[1..30] of integer; var max1: =-1; var min2: =1; var max3: =-999999; for var i : = 1 to 30 do readln(arr[i]); writeln(arr.; for var i : = 1 to 30 do begin if (arr[i] > = 0) and (arr[i] > max1) and (arr[i] mod 2 = 0) then max1 : = arr[i]; if (arr[i] < 0) and (arr[i] < min2) and (arr[i] mod 2 < > 0) then min2 : = arr[i]; if (arr[i] mod 7 = 0) and (arr[i] > max3) then max3 : = arr[i]; end; writeln('максимальное среди четных положительных чисел: ' + max1); writeln('минимальное среди нечетных отрицательных чисел: ' + min2); writeln('максимальное среди чисел кратных 7: ' + max3); end. скажи, если надо объяснить если не сложно нажми "" ; )
ок чуть-чуть не поняла во ну как то так
1) 53+62+6=121 2)121-88=33
ответ: 33 семиклассника с одинаковыми увлечениями
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
deneleslamov216.09.2020 15:04
-
Kylp03.03.2023 01:16
-
марс5521.02.2022 20:53
-
Викитирон28.04.2020 16:25
-
Lugazat02.03.2022 21:13
-
aleks172114.10.2020 08:56
-
nkochneva105.04.2020 01:21
-
Nikidiy14.11.2022 06:53
-
Катенька2006123.03.2020 21:14
-
romaantonizin09.05.2023 06:22
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.