Даны целочисленная матрица 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. не могу найти, что именно не так, программа выполняет не верно
273
275
Ответы на вопрос:
// pascalabc.net 3.2, сборка 1356 begin var n : = readinteger('введите число: '); if n > 0 then n *= n else n : = 0; write('ответ: ', n); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
MiYaG1119.04.2021 21:47
-
Лолита17110701.03.2020 07:54
-
dms30445p0a74304.08.2020 16:01
-
danilaman21.04.2020 20:53
-
Dovakin27012.07.2022 00:06
-
artem87730.04.2020 12:23
-
0667543784u76ju08.11.2022 21:41
-
silenceeee28.08.2020 02:57
-
tseykalo1813.10.2021 18:49
-
lisovskymaxim200609.11.2022 11:56
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.