// 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
Я выделила самую главную информацию. Главным направлением перестройки менеджмента и его радикального усовершенствования, при к современным условиям стало массовое использование новейшей компьютерной и телекоммуникационной техники, формирование на ее основе высокоэффективных информационно-управленческих технологий.
Средства и методы прикладной информатики используются в менеджменте и маркетинге. Новые технологии, основанные на компьютерной технике, требуют радикальных изменений организационных структур менеджмента, его регламента, кадрового потенциала, системы документации, фиксирования и передачи информации.
я получила ответ 347,вроде правильно)