Регистрация
Dora2020
06.08.2020 06:38
Информатика
Есть ответ 👍

Даны целочисленная матрица 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. не могу найти, что именно не так, программа выполняет не верно

199
272
Посмотреть ответы 1

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

suchilinaelya
suchilinaelya
4,6(91 оценок)
Var a,b,c,d: integer; begin readln(a); b: =a mod 10; c: =a mod 100 div 10;   d: =a div 100; if (b=c) or (b=d) or (c=d) then writeln('yes') else writeln('no') end.

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