Заполнить двухмерный массив размера N*M случайными целыми числами, диапазон изменения которых вводится с клавиатуры. Вывести массив на экран. Заполнить одномерный массив, элементами которого является сумма элементов каждой стро...
Заполнить двухмерный массив размера N*M случайными целыми числами, диапазон изменения которых вводится с клавиатуры.
Вывести массив на экран.
Заполнить одномерный массив, элементами которого является сумма элементов каждой строки двухмерного массива. Вывести его на экран(Тоже задание сделать и для столбцов).
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы