
Задан двумерный целочисленный массив В из n строк и m столбцов (1 ≤ n, m ≤ 10). Составить
программу, которая организует двумерный массив, элементы главной диагонали которого равны соответствующим элементам исходного массива, а остальные элементы равны нулю.

Ответы на вопрос

const n=6; m=n;
var b:array[1..n,1..m] of integer;
i,j: integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to m do
begin
b[i,j]:=random(90)+10;
write(b[i,j]:4);
end;
writeln;
end;
writeln('Полученный массив:');
for i:=1 to n do
for j:=1 to m do
if i<>j then b[i,j]:=0;
for i:=1 to n do
begin
for j:=1 to m do write(b[i,j]:4);
writeln;
end;
end.
Пример:
Исходный массив:
59 63 74 85 64 87
59 86 48 66 68 44
49 36 90 15 96 34
44 52 81 83 57 53
61 45 93 85 16 40
17 68 11 43 84 96
Полученный массив:
59 0 0 0 0 0
0 86 0 0 0 0
0 0 90 0 0 0
0 0 0 83 0 0
0 0 0 0 16 0
0 0 0 0 0 96



Для создания двумерного массива с указанными характеристиками, нужно просто инициализировать массив и присвоить нули всем элементам, кроме элементов главной диагонали.
Вот пример программы на языке Python:
pythondef create_diagonal_array(n, m, original_array):
# Создаем двумерный массив с нулями
diagonal_array = [[0 for _ in range(m)] for _ in range(n)]
# Заполняем элементы главной диагонали значениями из исходного массива
for i in range(min(n, m)):
diagonal_array[i][i] = original_array[i][i]
return diagonal_array
# Пример использования программы
if __name__ == "__main__":
n = 4
m = 3
original_array = [
[5, 8, 6],
[2, 4, 7],
[9, 1, 3],
[0, 1, 2]
]
diagonal_array = create_diagonal_array(n, m, original_array)
# Выводим результат
for row in diagonal_array:
print(row)
Этот код создаст двумерный массив diagonal_array
, элементы главной диагонали которого будут равны элементам исходного массива original_array
, а остальные элементы будут равны нулю. Вывод программы будет выглядеть так:
csharp[5, 0, 0]
[0, 4, 0]
[0, 0, 3]
[0, 0, 0]


Похожие вопросы
Топ вопросов за вчера в категории Информатика







Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili