Заполнить двухмерный массив размера n*m случайными целыми числами, диапазон изменения которых вводится с клавиатуры. вывести массив на экран. заполнить одномерный массив, элементами которого является сумма элементов каждой строки двухмерного массива. вывести его на экран(тоже сделать и для столбцов).
111
494
Ответы на вопрос:
Const nn = 50; nm = 50; var mas: array[1..nn, 1..nm] of integer; r: array[1..nn] of integer; c: array[1..nm] of integer; i, j, n, m, k, s, a, b, p : integer; begin write('введите число строк и столбцов матрицы: '); readln(n,m); write('введите границы для элементов массива: '); readln(a,b); { защита от злобных буратинок } if a> b then begin k: =a; a: =b; b: =k end; { найдем количество позиций, требуемое для вывода элементов } k: =(b-a+1); if k=0 then p: =2 else begin if k< 0 then begin p: =4; k: =-k end else p: =3; p: =p+trunc(ln(k)/ln(10)) end; { заполнение массива случайными числами } randomize; writeln('исходная матрица'); for i : = 1 to n do begin for j : = 1 to m do begin mas[i, j] : = random(b-a+1) + a; write(mas[i, j]: p) end; writeln end; { суммы по строкам } writeln('суммы элементов по строкам'); for i: =1 to n do begin s: =0; for j: =1 to m do s: =s+mas[i,j]; r[i]: =s; writeln(s: p+1) end; { суммы по столбцам } writeln('суммы элементов по столбцам'); for j: =1 to m do begin s: =0; for i: =1 to n do s: =s+mas[i,j]; c[j]: =s; write(s: p+1) end; writeln end. тестовое решение: введите число строк и столбцов матрицы: 6 9 введите границы для элементов массива: -50 200 исходная матрица 94 -48 2 83 -49 125 18 110 15 168 51 57 196 18 132 -36 -25 56 95 55 1 20 -50 -27 174 -11 -27 109 142 155 -34 188 160 175 -46 196 27 85 156 103 -50 13 64 36 -14 122 116 -2 42 173 177 22 145 67 суммы элементов по строкам 350 617 230 1045 420 862 суммы элементов по столбцам 615 401 369 410 230 580 417 209 293
ответ:По заданным точкам получается только это. Возможно вы не правильно вписали .
Объяснение:
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
ПЛЮШЕВЫЙМШКА102.03.2020 17:09
-
dzhusanastasia10.02.2021 11:58
-
birdibir25.11.2020 00:03
-
svyatkin11129.11.2021 06:03
-
ROLBER25.01.2020 10:01
-
ZoeK03.01.2021 00:58
-
dashabar120826.04.2023 18:28
-
kuzmov5520.11.2020 10:03
-
Dimaa29905.12.2022 10:47
-
000КапралЛеви00010.07.2020 06:58
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.