writeln('введите массив ',n, '*', m, ' элементов: ');
for i : = 1 to n do
for j : = 1 to m do
read(matrix[i,j]);
max : = matrix[1,1];
for i : = 1 to n do
for j : = 1 to m do
if (max < matrix[i,j]) then
begin
max : = matrix[i,j];
max_i : = i;
max_j : = j;
end;
sum : = 0;
for i : = 1 to n do
sum : = sum + matrix[i, max_j];
for j : = 1 to m do
sum : = sum + matrix[max_i, j];
matrix[max_i, max_j] : = sum;
writeln('получившийся массив: ');
for i : = 1 to n do
begin
for j : = 1 to m do
write(matrix[i,j], ' ');
writeln();
end;
end.
пример:
введите массив 3*4 элементов:
1 2 3 4
55 6 7 8
9 10 11 12
получившийся массив:
1 2 3 4
141 6 7 8
9 10 11 12
s-food
22.01.2022
Граф, графи́ня (нем. graf) — королевское должностное лицо в раннем средневековье в западной европе. титул возник в iv веке в римской империи и первоначально присваивался высшим сановникам(например, comes sacrarum largitionum «главный казначей»). во франкском государстве со второй половины vi века граф (гауграф) в своём округе-графстве/гау(нем. gau — первоначально, сельская община у древних германцев, численностью ок. 100 человек) обладал судебной, административной и военной властью. по постановлению карла ii лысого (877) должность и владения графа стали наследственными. в период феодальной раздробленности — феодальныйвладетель графства, затем (с ликвидацией феодальной раздробленности) титул высшего дворянства. в качестве титула формально продолжает сохраняться в большинстве стран европы с монархической формой правления. в россии титул введён петром i(первым его получил в 1706 году б. п. шереметев). в конце xix векаучтено свыше 300 графских родов. графский титул в советской россии был ликвидирован декретом вцик и совнаркома от 11 ноября 1917 года.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Дан двумерный массив. прибавить к каждому элементу число 3 и посчитать сумму элементов матрицы , находящихся в нечётных столбцах
const
n = 3;
m = 4;
var
matrix: array[1..n, 1..m] of integer;
max, max_i, max_j, i, j: integer;
sum: integer;
begin
writeln('введите массив ',n, '*', m, ' элементов: ');
for i : = 1 to n do
for j : = 1 to m do
read(matrix[i,j]);
max : = matrix[1,1];
for i : = 1 to n do
for j : = 1 to m do
if (max < matrix[i,j]) then
begin
max : = matrix[i,j];
max_i : = i;
max_j : = j;
end;
sum : = 0;
for i : = 1 to n do
sum : = sum + matrix[i, max_j];
for j : = 1 to m do
sum : = sum + matrix[max_i, j];
matrix[max_i, max_j] : = sum;
writeln('получившийся массив: ');
for i : = 1 to n do
begin
for j : = 1 to m do
write(matrix[i,j], ' ');
writeln();
end;
end.
пример:
введите массив 3*4 элементов:
1 2 3 4
55 6 7 8
9 10 11 12
получившийся массив:
1 2 3 4
141 6 7 8
9 10 11 12