Заполнить двухмерный массив размера N*M случайными целыми числами, диапазон конфигурации которых
Заполнить двухмерный массив размера N*M случайными целыми числами, спектр конфигурации которых вводится с клавиатуры.
Вывести массив на экран.
Заполнить одномерный массив, элементами которого является сумма частей каждой строчки двухмерного массива. Вывести его на экран(Тоже задание сделать и для столбцов).
1 ответ
Владислав Грозь
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 agt;b then begin k:=a; a:=b; b:=k end;
найдем количество позиций, требуемое для вывода элементов
k:=(b-a+1);
if k=0 then p:=2
else begin
if klt;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
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 agt;b then begin k:=a; a:=b; b:=k end;
найдем количество позиций, требуемое для вывода элементов
k:=(b-a+1);
if k=0 then p:=2
else begin
if klt;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
Maks Rogoznikov
громадное спасибо!!
Костян Моцык
Пожалуйста
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Приветствую!
Меня зовут Станислав, я представляю компанию under.site.
Хотел бы предложить интересное решение
Разные вопросы.
Масса трёх одинаковых пакетов чая 180г чему равна масса
Математика.
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Вычислите силу с которой при давлении 100 КПа атмосфера давит на
Физика.
Синтаксический разбор и схема Но мы сказали, что нам ничего не
Русский язык.
Массовая доля целлюлозы в древесине составляет 50%. Какая масса спирта может
Химия.
помоги мне пожалуста прш
869*(61124-488*125)-50974
Математика.
Облако тегов