Предмет: Информатика,
автор: studentislam63
Язык паскаль
Процедуры
Даны две целочисленные квадратные матрицы порядка n и m. Найти для каждой номера строк, все элементы которых нули.
Все с объяснением пожалуйста
Ответы
Автор ответа:
0
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!
procedure MyProc;
begin
var n:=ReadInteger('Введите порядок матрицы:');
Writeln('Введите построчно элементы матрицы');
var a:=ReadMatrInteger(n,n);
Writeln(4*a.ColCount*'-');
Write('Строки, содержащие только нули: ');
for var i:=0 to n-1 do
if a.Row(i).All(t->t=0) then Print(i+1);
Writeln
end;
begin
Loop 2 do MyProc
end.
Пример
Введите порядок матрицы: 3
Введите построчно элементы матрицы
1 0 0
0 0 1
0 0 0
------------
Строки, содержащие только нули: 3
Введите порядок матрицы: 2
Введите построчно элементы матрицы
0 0
0 0
--------
Строки, содержащие только нули: 1 2
// Внимание! Если программа не работает, обновите версию!
procedure MyProc;
begin
var n:=ReadInteger('Введите порядок матрицы:');
Writeln('Введите построчно элементы матрицы');
var a:=ReadMatrInteger(n,n);
Writeln(4*a.ColCount*'-');
Write('Строки, содержащие только нули: ');
for var i:=0 to n-1 do
if a.Row(i).All(t->t=0) then Print(i+1);
Writeln
end;
begin
Loop 2 do MyProc
end.
Пример
Введите порядок матрицы: 3
Введите построчно элементы матрицы
1 0 0
0 0 1
0 0 0
------------
Строки, содержащие только нули: 3
Введите порядок матрицы: 2
Введите построчно элементы матрицы
0 0
0 0
--------
Строки, содержащие только нули: 1 2
Автор ответа:
0
поступил в управление в тех системах
Автор ответа:
0
вот такие вот дела
Автор ответа:
0
пожалуйста сделайте один раз исключение
Автор ответа:
0
Я НЕ БУДУ сидеть и тратить время на эту ерунду.
Автор ответа:
0
спасибо, за понимание
Похожие вопросы
Предмет: Биология,
автор: lutovmihail9
Предмет: История,
автор: yanahoromets
Предмет: Физкультура и спорт,
автор: glavatskihnika19
Предмет: Математика,
автор: satkoevafatima
Предмет: Обществознание,
автор: MESSI13102004