var a: array[1..n, 1..m] of integer; i, j: integer;
function check(i: integer): boolean; var j: integer; begin check := false; j := 0; repeat inc(j); if a[i, j] < 0 then begin check := true; exit; end; until j = m; end;
function search: integer; var i: integer; begin search := 0; i := 0; repeat inc(i); if not(check(i)) then begin search := i; exit; end; until i = n; end;
begin writeln('Введите матрицу ', n, 'x', m,': '); i := 0; repeat j := 0; inc(i); repeat inc(j); read(a[i, j]); until j = m; until i = n; writeln('ответ: ', search); end. Пример работы программы: Введите матрицу 5x5: 3 4 2 3 -2 3 -5 -7 -2 1 8 2 5 4 -4 0 1 2 3 4 1 7 2 -5 2 ответ: 4 * Примечание: Если во всех строках есть отрицательные элементы, то ответ будет 0 (можно изменить в самой процедуре)
Блок-схема — это схематичное представление процесса, системы или компьютерного алгоритма. Блок-схемы часто применяются в разных сферах деятельности, чтобы документировать, изучать, планировать, совершенствовать и объяснять сложные процессы с простых логичных диаграмм. Для построения блок-схем применяются прямоугольники, овалы, ромбы и некоторые другие фигуры (для обозначения конкретных операций), а также соединительные стрелки, которые указывают последовательность шагов или направление процесса. Блок-схемы варьируются от незамысловатых, нарисованных вручную до подробных, составленных на компьютере диаграмм со множеством шагов и процессов. Если учесть все возможные вариации, блок-схемы можно признать одним из самых распространенных видов схем во всем мире. Они широко используются в разных сферах как технической, так и нетехнической направленности. Иногда блок-схемы получают более узкоспециальные названия, например, схема процесса, схема рабочего процесса, функциональная блок-схема, моделирование бизнес-процессов, модель и нотация бизнес-процессов (BPMN) или схема технологического процесса (PFD). Они тесно связаны с другими распространенными видами схем, такими как диаграммы DFD и диаграммы активности на унифицированном языке моделирования (UML).
const
n = 5;
m = 5;
var
a: array[1..n, 1..m] of integer;
i, j: integer;
function check(i: integer): boolean;
var j: integer;
begin
check := false;
j := 0;
repeat
inc(j);
if a[i, j] < 0 then
begin
check := true;
exit;
end;
until j = m;
end;
function search: integer;
var i: integer;
begin
search := 0;
i := 0;
repeat
inc(i);
if not(check(i)) then
begin
search := i;
exit;
end;
until i = n;
end;
begin
writeln('Введите матрицу ', n, 'x', m,': ');
i := 0;
repeat
j := 0;
inc(i);
repeat
inc(j);
read(a[i, j]);
until j = m;
until i = n;
writeln('ответ: ', search);
end.
Пример работы программы:
Введите матрицу 5x5:
3 4 2 3 -2
3 -5 -7 -2 1
8 2 5 4 -4
0 1 2 3 4
1 7 2 -5 2
ответ: 4
* Примечание: Если во всех строках есть отрицательные элементы, то ответ будет 0 (можно изменить в самой процедуре)