Регистрация
alikakusai35
20.02.2020 10:18
Информатика
Есть ответ 👍

А должно получится это

110
157
Посмотреть ответы 1

Ответы на вопрос:

Дианчик777
Дианчик777
4,4(88 оценок)
// 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

Популярно: Информатика