ScourgeTheCat

10.08.2021 16:07 •  Информатика

Даны целочисленная матрица a[1: n, 1: m] и целочисленный массив b[1: k]. удалить путем сдвига все строки матрицы, содержащие хотя бы один элемент, равный максимальному элементу массива. const lmax = 100; type mass = array [1..lmax] of integer; matr = array[1..lmax,1..lmax] of integer; var a: matr; b: mass; i, j, n, m, k, max: integer; flag: boolean; begin repeat writeln('введите количество строк и столбцов матрицы n и m'); readln(n, m); until (n> 0) and (m> 0); repeat writeln ('введите колличество элементов массива k'); readln(k); until k> 0; for i: =1 to n do for j: =1 to m do begin write('a[',i,',',j,']: ='); readln(a[i,j]) end; for i: =1 to k do begin write('b[',i,']: ='); readln(b[k]); end; flag: =false; max: =-maxint; for j: =1 to k do if b[j]> max then max: =b[j]; for i: =1 to n do for j: =1 to m do begin if flag=true then begin a[n,m]: =a[n+1,m]; n: =n-1; flag: =false; end else if a[n,m]=max then flag: =true; end; writeln('новая матрица: '); for i: =1 to n do begin for j: =1 to m do write(a[i,j],' '); writeln; end; end. не могу найти, что именно не так, программа выполняет не верно