Решаем задачи Абрамян на Паскале. Matrix45

Matrix45. Дана матрица размера $M \times N$ . Найти максимальный среди элементов тех столбцов, которые упорядочены либо по возрастанию, либо по убыванию. Если упорядоченные столбцы в матрице отсутствуют, то вывести $0$ .

Решение:

program Matrix45;
var
  a:array [1..10,1..10] of integer;
  M, N, i, j:Integer;

begin
 Write('N: ');
 Readln(N);
 Write('M: ');
 Readln(M);

 for  i:=1 to M do
  begin
   writeln(i,': ');
   for j:=1 to N do
    begin
     Write(j,' : ');
     Read(a[i,j]);
    end;
  end;

 for  j:=1 to N do
  begin
   i:=2;
   While ((a[i-1,j]<a[i,j]) and (i<=M)) do inc(i);
   if i=M+1 then writeln(a[M,j])
   else
    begin
     i:=2;
     While ((a[i-1,j]>a[i,j]) and (i<=M)) do inc(i);
     if i=M+1 then writeln(a[1,j])
      else
       writeln('0');
    end;
  end;
end.

program Matrix45;

var

a:array [1..10,1..10] of integer;

M, N, i, j:Integer;

begin

Write('N: ');

Readln(N);

Write('M: ');

Readln(M);

for i:=1 to M do

begin

writeln(i,': ');

for j:=1 to N do

begin

Write(j,' : ');

Read(a[i,j]);

end;

for j:=1 to N do

begin

i:=2;

While ((a[i-1,j]<a[i,j]) and (i<=M)) do inc(i);

if i=M+1 then writeln(a[M,j])

else

begin

i:=2;

While ((a[i-1,j]>a[i,j]) and (i<=M)) do inc(i);

if i=M+1 then writeln(a[1,j])

else

writeln('0');

end;

end.

Другие задачи из раздела Matrix можно посмотреть здесь.

Комментарии 1

Тут комментарий такой же как к предыдущей задаче. Немножко другое решение, чем в редыдущей задаче, без List:

program Matrix45;//pabc.net

begin
  var m := 3;
  var n := 10;
  
  var a := MatrRandom(m, n, 0, 100); a.Println;
  
  var j := 0;
  var found := false;
  var Max: integer;
  
  while j <= n - 1 do
  begin
    var b := a.Col(j).Sorted;
    var c := a.Col(j).SortedDescending;
    if a.Col(j).SequenceEqual(b) or a.Col(j).SequenceEqual(c) then
    begin
      var MaxCol := a.Col(j).Max;
      if not found then
      begin
        Max := MaxCol;
        found := true
      end
      else if Max < MaxCol then
        Max := MaxCol;
      Println(j + 1, '***', a.Col(j))
    end;
    j += 1
  end;
  
  Print(found ? $'Max = {Max}' : '0')
end.

program Matrix45;//pabc.net

begin

var m := 3;

var n := 10;

var a := MatrRandom(m, n, 0, 100); a.Println;

var j := 0;

var found := false;

var Max: integer;

while j <= n - 1 do

begin

var b := a.Col(j).Sorted;

var c := a.Col(j).SortedDescending;

if a.Col(j).SequenceEqual(b) or a.Col(j).SequenceEqual(c) then

begin

var MaxCol := a.Col(j).Max;

if not found then

begin

Max := MaxCol;

found := true

end

else if Max < MaxCol then

Max := MaxCol;

Println(j + 1, '***', a.Col(j))

end;

j += 1

end;

Print(found ? $'Max = {Max}' : '0')

end.

Ответить

Решаем задачи Абрамян на Паскале. Matrix45

Комментарии:

Комментарии 1

Добавить комментарий Отменить ответ