Регистрация
Войти
Стать экспертом Правила
Информатика

Язык паскаль Процедуры Даны две целочисленные квадратные матрицы порядка n и m.Найти для каждой номера строк, все элементы которых нули. Все с объяснением пожалуйста

ОТВЕТЫ



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
83
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам