
Дана некоторая матрица A размером, причем все ее элементы являются двухзначными числами. Из цифр
каждого элемента данной матрицы составьте соответственно две матрицы B и C по следующему правилу: произвольный элемент bij матрицы B будет равняться первой цифре элемента aij матрицы A, а произвольный элемент сij матрицы C будет равняться второй цифрой элемента aij матрицы A. Определите: – количество нулевых элементов в матрице C; – сумму всех элементов матрицы B и сумму всех элементов матрицы C; – какая сумма оказалась больше (выведите соответственно слова «сумма элементов матрицы B больше», «сумма элементов матрицы C больше»)?

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

// Внимание! Если программа не работает, обновите версию!
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:');
Writeln('*** Матрица A ***');
var a:=MatrRandom(m,n,10,99); a.Println(3);
var b:=new integer[m,n];
var c:=new integer[m,n];
for var i:=0 to m-1 do
for var j:=0 to n-1 do
(b[i,j],c[i,j]):=(a[i,j] div 10,a[i,j] mod 10);
Writeln('*** Матрица B ***'); b.Println(3);
Writeln('*** Матрица C ***'); c.Println(3);
Writeln(3*n*'-');
Writeln('Количество нулевых элементов в С: ',
c.ElementsByRow.Where(t->t=0).Count);
var (sb,sc):=(b.ElementsByRow.Sum,c.ElementsByRow.Sum);
Writeln('Сумма всех элементов матрицы B: ',sb);
Writeln('Сумма всех элементов матрицы C: ',sc);
if sb>sc then Writeln('Сумма элементов матрицы B больше')
else
if sc>sb then Writeln('Сумма элементов матрицы C больше')
else Writeln('Суммы элементов матриц B и С равны')
end.



Задача
Дана матрица A размером, где все элементы являются двухзначными числами. Из цифр каждого элемента данной матрицы составьте соответственно две матрицы B и C по следующему правилу: произвольный элемент bij матрицы B будет равняться первой цифре элемента aij матрицы A, а произвольный элемент cij матрицы C будет равняться второй цифрой элемента aij матрицы A. Необходимо определить: - количество нулевых элементов в матрице C; - сумму всех элементов матрицы B и сумму всех элементов матрицы C; - какая сумма оказалась больше (вывести соответственно слова «сумма элементов матрицы B больше», «сумма элементов матрицы C больше»).
Решение
Для решения данной задачи, нужно выполнить следующие шаги: 1. Создать матрицы B и C размером таким же, как и матрица A. 2. Заполнить матрицу B первыми цифрами элементов матрицы A. 3. Заполнить матрицу C вторыми цифрами элементов матрицы A. 4. Посчитать количество нулевых элементов в матрице C. 5. Посчитать сумму всех элементов матрицы B и сумму всех элементов матрицы C. 6. Сравнить суммы и вывести результат.
Решение задачи шаг за шагом:
1. Создание матриц B и C: - Создадим матрицы B и C такого же размера, как и матрица A. Каждая матрица будет иметь те же строки и столбцы, что и матрица A.
2. Заполнение матриц B и C: - Для заполнения матрицы B, возьмем первую цифру каждого элемента матрицы A. - Для заполнения матрицы C, возьмем вторую цифру каждого элемента матрицы A.
3. Подсчет количества нулевых элементов в матрице C: - Пройдемся по всем элементам матрицы C и посчитаем количество нулевых элементов.
4. Подсчет суммы всех элементов матрицы B и суммы всех элементов матрицы C: - Пройдемся по всем элементам матрицы B и матрицы C и посчитаем их суммы.
5. Сравнение сумм и вывод результата: - Сравним суммы элементов матрицы B и матрицы C. - Если сумма элементов матрицы B больше, выведем "сумма элементов матрицы B больше". - Если сумма элементов матрицы C больше, выведем "сумма элементов матрицы C больше".
Пример решения задачи:
Пусть дана матрица A: ``` A = [[12, 34, 56], [78, 90, 23], [45, 67, 89]] ```
Тогда матрица B будет: ``` B = [[1, 3, 5], [7, 9, 2], [4, 6, 8]] ```
А матрица C будет: ``` C = [[2, 4, 6], [8, 0, 3], [5, 7, 9]] ```
Количество нулевых элементов в матрице C: 1.
Сумма всех элементов матрицы B: 45.
Сумма всех элементов матрицы C: 44.
Так как сумма элементов матрицы B больше, выводим "сумма элементов матрицы B больше".
Ответ:
- Количество нулевых элементов в матрице C: 1. - Сумма всех элементов матрицы B: 45. - Сумма всех элементов матрицы C: 44. - Сумма элементов матрицы B больше.


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