максимальный элемент

[Юля23]

дело не в индексе. а в числе...те [2,7]=20, [7,2]= 30
[7,2] получается максимальным

[WorldMaster]

Сообщение от Юля23

дело не в индексе. а в числе...те [2,7]=20, [7,2]= 30
[7,2] получается максимальным

Вас не понять. То вам индекс надо найти, то максимальный элемент.
Аналогично можно поступить. В еще один массив сбрасывать максимальные элементы строк
затем выбрать из массива максимальный элемент вот вам и будет макс из матрицы.

[Юля23]

я уже нашла все адреса(мое самое первое сообщение).
принцип программы:
вводится размер матрицы 3
23 45 67
12 16 94
29 55 67
далее нужно ввести 2 числа границы допустим
10 и 25
после выводятся адреса элементов, которые удовлетворяют этому условию
(подходящие числа 23, 12, 16, поэтому выводятся адреса этих элементов)
[1,1]
[2,1]
[2,2]
это все моя программа делает.Мне нужно, чтобы она потом вывела адрес максимального числа(из примера 23) те должна вывести адрес [1,1]

[WorldMaster]

Сообщение от Юля23

я уже нашла все адреса(мое самое первое сообщение).
принцип программы:
вводится размер матрицы 3
23 45 67
12 16 94
29 55 67
далее нужно ввести 2 числа границы допустим
10 и 25
после выводятся адреса элементов, которые удовлетворяют этому условию
(подходящие числа 23, 12, 16, поэтому выводятся адреса этих элементов)
[1,1]
[2,1]
[2,2]
это все моя программа делает.Мне нужно, чтобы она потом вывела адрес максимального числа(из примера 23) те должна вывести адрес [1,1]

MAX = -100000000; // заранее вписать самое минимальное число
...
procedure Adress(a:mas; p,q:integer; var b:mas, var MAX:integer);
    var
      i,j:integer;
    begin
      j:=1;
    for i:=1 to n do
      if (a[i]>=p) and (a[i]<=q) then
        begin
          if a[i] > MAX then MAX = a[i];
          b[j]:=i;
          j:=j+1;
        end;
    end;

Когда в цикле вы проверите все строки матрицы МАКС будет содержать максимальное число из тех которые удовлетворяют условию (a[i]>=p) and (a[i]<=q)

[Юля23]

я что-то не понимаю, как вывести максимальное

[WorldMaster]

Сообщение от Юля23

я что-то не понимаю, как вывести максимальное

попробуйте этот код

program adress;
  uses
    crt;
  const
    L=10;
  type
    mas=array[1..l] of integer;
    matr=array[1..l] of mas;
  var
    Adr:mas;
    M:matr;
    i,j,p,q,n, maxn, maxi, MAX_VAL:integer;
  
procedure Adress(a:mas; p,q:integer; var b:mas, var MAX:integer);
    var
      i,j:integer;
    begin
      j:=1;
    for i:=1 to n do
      if (a[i]>=p) and (a[i]<=q) then
        begin
          if a[i] > MAX then MAX = a[i];
          b[j]:=i;
          j:=j+1;
        end;
    end;

  begin
    clrscr;
    randomize;
    writeln('vvedite razmer matrici');
    readln(n);
    writeln('Ishodniy massiv:');
    for i:=1 to n do
      begin
        for j:=1 to n do
          begin
            M[i,j]:=random(100);
            write(M[i,j]:4);
          end;
          writeln;
      end;
    writeln('vvedite granici:');
    readln(p,q);
    writeln('adresa iscomih elementov [',p,',',q,'],');
   MAX_VAL = -100000000;
    for i:=1 to n do
      begin
        Adress(M[i],p,q,Adr,MAX_VAL);
        j:=1;
        while adr[j]<>0 do
          begin
            writeln('(',i,',',adr[j],')');
            Adr[j]:=0;
            j:=j+1;
          end;
      end;

writeln('Maximum = ',MAX_VAL);

  readln;
end.

[Юля23]

не работает(max_val сделала 0 так как вне диапазона -1000000, он мне этот 0 и выводит

[WorldMaster]

Сообщение от Юля23

не работает(max_val сделала 0 так как вне диапазона -1000000, он мне этот 0 и выводит

program address;
  uses
    crt;
  const
    L=10;
  type
    mas=array[1..l] of integer;
    matr=array[1..l] of mas;
  var
    Adr:mas;
    M:matr;
    i,j,p,q,n, maxn, maxi, MAX_VAL:integer;
  
procedure Adress(a:mas; p,q:integer; var b:mas; var MAX:integer);
    var
      i,j:integer;
    begin
      j:=1;
    for i:=1 to n do
      if (a[i]>=p) and (a[i]<=q) then
        begin
          if a[i] > MAX then MAX := a[i];
          b[j]:=i;
          j:=j+1;
        end;
    end;

  begin
    clrscr;
    randomize;
    writeln('vvedite razmer matrici');
    readln(n);
    writeln('Ishodniy massiv:');
    for i:=1 to n do
      begin
        for j:=1 to n do
          begin
            M[i,j]:=random(100);
            write(M[i,j]:4);
          end;
          writeln;
      end;
    writeln('vvedite granici:');
    readln(p,q);
    writeln('adresa iscomih elementov [',p,',',q,'],');
   MAX_VAL := -32768;
    for i:=1 to n do
      begin
        Adress(M[i],p,q,Adr,MAX_VAL);
        j:=1;
        while adr[j]<>0 do
          begin
            writeln('(',i,',',adr[j],')');
            Adr[j]:=0;
            j:=j+1;
          end;
      end;

writeln('Maximum = ',MAX_VAL);

  readln;
end.

[Юля23]

спасибо за помощь все работает)))