Необходимо составить программу с двумерным массивом. для заполнения данного массива нужно использовать генератор случайных чисел. i - отвечает за номер строки. j - отвечает за номер столбца. заполненные массивы должны выглядеть так: при const n=3 1 2 1 2 3 2 1 2 1 при const n=5 1 2 3 2 1 2 1 2 1 2 3 2 1 2 3 2 1 2 1 2 1 2 3 2 1 желательно, составить блок-схему.

Впрограмме две константы: n и m. n отвечает за размер массива, m за максимальное значение случайного числа от   0 до  на 1 меньше чем само m. program zadacha; const n = 5; m = 5; var a: array [1..n, 1..n] of integer; i, j: integer; begin randomize; for i : = 1 to n do for j : = 1 to n do a[i, j] : = random(m); writeln('результат: '); for i : = 1 to n do begin for j : = 1 to n do write(a[i, j], ' '); writeln; end; readln; end.

//pascalabc.net 3.1 сборка 1239 var       brackets: array [0..2, 0..1] of char : = (('{', '}'), ('[', ']'), ('(', ')')); begin       var s : = readlnstring();       var counter : = 0;       var max_depth : = 0;             for var i : = 1 to s.length do       begin               if s[i] = '(' then counter += 1               else if s[i] = ')' then counter -= 1               else continue;               if counter < 0 then begin                       writeln('brackets error');                       halt;               end;               if counter > max_depth then max_depth : = counter;       end;             counter : = 0;       for var i : = 1 to s.length do       begin               if s[i] = '(' then counter += 1               else if s[i] = ')' then counter -= 1               else continue;                             if (counter = max_depth - 1) and (s[i] = '(') then s[i] : = brackets[1, 0]               else if (counter = max_depth - 2) and (s[i] = ')') then s[i] : = brackets[1, 1]               else if (counter = max_depth - 2) and (s[i] = '(') then s[i] : = brackets[0, 0]               else if (counter = max_depth - 3) and (s[i] = ')') then s[i] : = brackets[0, 1];       end;             writeln(s); end.