Вопрос по информатике:
Найти произведение элементов К-ой и Р-ой строчек квадратной матрицы, размерностью 5х5 (двумерный массив)
Пожаловаться
- 09.03.2018 17:45
- Информатика
- remove_red_eye 9803
- thumb_up 42
Ответы и объяснения 1
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var n:=5;
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(n,n,-50,50);
a.Println(4); Writeln(4*a.ColCount*'-');
var (k,p):=ReadInteger2('Введите через пробел номера двух строк:');
if k.Between(1,n) and p.Between(1,n) then begin
a.Row(k-1).Zip(a.Row(p-1),(x,y)->x*y).Println;
end
end.
Пример
*** Исходная матрица ***
-45 -38 -15 34 -13
1 -38 39 34 -25
24 -41 -4 -25 -48
5 -19 -43 -15 -31
-21 27 -31 23 -39
--------------------
Введите через пробел номера двух строк: 2 5
-21 -1026 -1209 782 975
// Внимание! Если программа не работает, обновите версию!
begin
var n:=5;
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(n,n,-50,50);
a.Println(4); Writeln(4*a.ColCount*'-');
var (k,p):=ReadInteger2('Введите через пробел номера двух строк:');
if k.Between(1,n) and p.Between(1,n) then begin
a.Row(k-1).Zip(a.Row(p-1),(x,y)->x*y).Println;
end
end.
Пример
*** Исходная матрица ***
-45 -38 -15 34 -13
1 -38 39 34 -25
24 -41 -4 -25 -48
5 -19 -43 -15 -31
-21 27 -31 23 -39
--------------------
Введите через пробел номера двух строк: 2 5
-21 -1026 -1209 782 975
Пожаловаться
- 01.01.1970 00:00
- thumb_up 9
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы