Вдвумерном массиве в[1..6,1..6], полученном случайным образом и содержащем положительные и отрицательные числа, найти сумму элементов первого столбца, если полученная сумма больше суммы элементов главной диагонали, то создать одномерный массив, в который записать максимальные элементы строк исходного массива, в противном случае определить среднее арифметическое положительных и отрицательных чисел массива в.
126
215
Ответы на вопрос:
Const n = 6; var b: array[1..n, 1..n] of integer; a: array[1..n] of integer; i, j, s1, s2, max: integer; begin randomize; writeln('исходный массив'); //max : = -777; {заведомо меньше меньшего} for i : = 1 to n do begin for j : = 1 to n do begin b[i, j] : = random(101) - 50; write(b[i, j]: 4) end; writeln end; s1 : = 0; s2 : = 0; for i : = 1 to n do begin s1 : = s1 + b[1, j]; s2 : = s2 + b[j, j] end; if s1 > s2 then begin writeln('сформированный массив'); for i : = 1 to n do begin max : = b[i, 1]; for j : = 2 to n do if max < b[i, j] then max : = b[i, j]; a[i] : = max; write(max: 4) end end else begin s1 : = 0; s2 : = 0; for i : = 1 to n do for j : = 1 to n do if b[i, j] > 0 then s1 : = s1 + b[i, j] else s2 : = s2 + b[i, j]; writeln('среднее арифметическое положительных элементов= ', s1/n); writeln('среднее арифметическое отрицательных элементов= ', s2/n); end end. тестовые решения: исходный массив -32 38 -10 42 -30 -35 -13 -22 14 -2 -42 0 -38 18 29 39 -26 19 15 23 -4 -31 21 8 -36 13 -26 -6 -13 -10 -11 38 40 11 -10 -22 среднее арифметическое положительных элементов= 61.3333333333333 среднее арифметическое отрицательных элементов= -69.8333333333333 исходный массив -37 -22 38 25 -23 21 -33 -50 32 42 -1 7 9 29 -9 21 29 -4 50 13 -33 -13 -47 10 25 46 18 47 15 48 -48 12 -39 -8 34 14 сформированный массив 38 42 29 50 48 34
Var a,b,asum,bsum,sum: integer; begin write('введите два трёхзначных числа: '); readln(a,b); if (abs(a)< 100) or (abs(a)> 999) or (abs(b)< 100) or (abs(b)> 999) then write('несоблюдено условие ввода') else begin asum: =a mod 10 + a div 10 mod 10 + a div 100; bsum: =b mod 10 + b div 10 mod 10 + b div 100; sum: =asum+bsum; if (sum> 9) and (sum< 100) then write('произведение этих чисел равно ',a*b) else write('разность этих чисел равна ',a-b); end; end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
karina84704.01.2022 19:49
-
ArseniyRich11.10.2020 01:20
-
Артём2453252331.03.2020 01:05
-
mango3418.02.2021 04:09
-
Бубух14.05.2021 15:14
-
Poligrinka08.11.2020 19:40
-
Никита854714.06.2021 12:56
-
457800087213.04.2022 22:17
-
zhasbaevamp06rkz15.02.2020 20:01
-
Maximm205.10.2022 18:21
![Caktus Image](/tpl/img/cactus.png)
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.