Есть какие нибудь книги, или сайты, где написано как правильно делать блок-схемы ?
Если есть, поделитесь
for i := 1 to l do
for k := 1 to m do
if ma[i] = mb[k] then
writeln(ma[i]);
const
max_row = 8;
max_col = 16;
var
arr: array[1 .. max_row, 1 .. max_col] of real;
i, j, row, col: integer;
is_sorted: boolean;
count: integer;
begin
repeat { Защита "от дурака" }
write('Число строк: '); readln(row);
until (row > 1) and (row < max_row);
repeat { Защита "от дурака" }
write('Число столбцов: '); readln(col);
until (col > 1) and (col < max_col);
{ Ввод матрицы }
for i := 1 to row do begin
writeln('row #', i);
for j := 1 to col do begin
write('arr[', i:2, ',', j:2, '] = '); readln(arr[i, j]);
end
end;
count := 0; { число уже найденных упорядоченных строк }
for i := 1 to row do begin
is_sorted := true; { считаем что ряд упорядочен }
j := 2; { и начиная со второго элемента каждой строки }
while (j <= col) and is_sorted do
{ проверяем элементы на упорядоченность }
if arr[i, j-1] < arr[i, j] then inc(j)
else is_sorted := false;
{ если ряд оказался упорядоченным }
if is_sorted then begin
{ выводим его номер на печать и увеличиваем счетыик найденных рядов }
writeln('#', i); inc(count)
end;
end;
{ если ничего не было распечатано, напечатать что "Нету" }
if count = 0 then writeln('Нет упорядоченных рядов');
end.