Найти максимальный среди всех элементов тех строк заданной матрицы, которые упорядочены (либо по возрастанию, либо по убыванию).
272
314
Ответы на вопрос:
uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
m,n,i,j,mx:integer;
f,b:boolean;
procedure Max;
var i,j:integer;
begin
b:=false;
i:=1;
mx:=-maxint-1;
for i:=1 to m do
begin
j:=2;
f:=true;
while(j<n)and f do
if(a[i,j]<=a[i,j-1])and(a[i,j]<=a[i,j+1]){если не нужна строгая упорядоченность, знак = везде убрать}
or (a[i,j]>=a[i,j-1])and(a[i,j]>=a[i,j+1]) then f:=false
else j:=j+1;
if f then
begin
b:=true;
for j:=1 to n do
if a[i,j]>mx then mx:=a[i,j];
end;
end;
end;
begin
clrscr;
repeat
write('Количество строк до ',nmax,' m=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов от 3 до ',nmax,' n=');
readln(n);
until n in [3..nmax];
clrscr;
writeln('Введите элементы матрицы, целые числа, в том числе упорядоченные строки:');
for i:=1 to m do
for j:=1 to n do
begin
gotoXY(j*4,3+i);
readln(a[i,j]);
end;
writeln;
Max;
if not b then write('В матрице нет строго упорядоченных строк')
else write('Максимальный элемент в упорядоченных строках=',mx);
readln
end.
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
m,n,i,j,mx:integer;
f,b:boolean;
procedure Max;
var i,j:integer;
begin
b:=false;
i:=1;
mx:=-maxint-1;
for i:=1 to m do
begin
j:=2;
f:=true;
while(j<n)and f do
if(a[i,j]<=a[i,j-1])and(a[i,j]<=a[i,j+1]){если не нужна строгая упорядоченность, знак = везде убрать}
or (a[i,j]>=a[i,j-1])and(a[i,j]>=a[i,j+1]) then f:=false
else j:=j+1;
if f then
begin
b:=true;
for j:=1 to n do
if a[i,j]>mx then mx:=a[i,j];
end;
end;
end;
begin
clrscr;
repeat
write('Количество строк до ',nmax,' m=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов от 3 до ',nmax,' n=');
readln(n);
until n in [3..nmax];
clrscr;
writeln('Введите элементы матрицы, целые числа, в том числе упорядоченные строки:');
for i:=1 to m do
for j:=1 to n do
begin
gotoXY(j*4,3+i);
readln(a[i,j]);
end;
writeln;
Max;
if not b then write('В матрице нет строго упорядоченных строк')
else write('Максимальный элемент в упорядоченных строках=',mx);
readln
end.
Правильные вопросы отмечены по тесту
правильность теста проверенна
надеюсь на плюс 1 голос к ответу, если тест помог
правильность теста проверенна
надеюсь на плюс 1 голос к ответу, если тест помог
Популярно: Другие предметы
-
katyamakedoniya1127.01.2023 07:46
-
vladbortnovsij6902.03.2023 15:29
-
Arslan08Kalmuk22.05.2021 05:23
-
lfif12345678930.03.2023 01:16
-
GiViS24.03.2021 13:37
-
момалог28.05.2023 04:34
-
gtnzcdtnf19.03.2020 08:35
-
nelli3704.11.2021 05:28
-
Pots15020420.04.2021 15:39
-
gta123465709.02.2021 11:53