Язык паскаль
Процедуры
Даны две целочисленные квадратные матрицы порядка 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
спасибо, за понимание
Вас заинтересует
2 года назад
3 года назад
3 года назад
9 лет назад
9 лет назад
10 лет назад