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

[Юля23]

Составить процедуру определения адресов элементов значения которых лежат в пределах от p до q в одномерном массиве A. с помощью этой процедуры определить и вывести на экран адреса соответствующих элементов в строках двумерной матрицы B.Вывести адрес максимального элемента из тех, которые были выведены.Как найти этот максимальный элемент?

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:integer;
  procedure Adress(a:mas; p,q:integer; var b:mas);
    var
      i,j:integer;
    begin
      j:=1;
    for i:=1 to n do
      if (a[i]>=p) and (a[i]<=q) then
        begin
          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,'],');
    for i:=1 to n do
      begin
        Adress(M[i],p,q,Adr);
        j:=1;
        while adr[j]<>0 do
          begin
            writeln('(',i,',',adr[j],')');
            Adr[j]:=0;
            j:=j+1;
          end;
            end;
  readln;
end.

[newerow1989]

Подправил:

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:integer;

procedure Adress(a:mas; p,q:integer; var b:integer);
var
      i:integer;
begin
    b:=1;
    for i:=2 to n do
      if (a[i]>=p) and (a[i]<=q) and (a[b]<a[i]) then
          b:=i;//здесь только адрес
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,'],');
    for i:=1 to n do
      begin
        Adress(M[i],p,q,Adr[i]);
        writeln('(',i,',',Adr[i],') = ',M[i,Adr[i]]);
      end;
  readln;
end.

Сойдет?

[Юля23]

не выводит максимальный адрес(выдает ошибку 201:ошибка проверки диапазона

[newerow1989]

На какой строчке?
Я вводил n=9, p,q=1 и 5 - все работало

[Юля23]

нужно вводить 2 числа, а вы вроде номер строк вводите 1 и 5 да?вот почему ошибка диапазона...
123
456
789
при вводе 4 и 6 должен вывести адреса
[2,1],[2,2],[2,3]
а потом адрес максимального [2,3]
моя прога все правильно делает, но я не знаю как максимальный адрес найти и вывести

[newerow1989]

Подправил в процедуре - сойдет?

И ниже дописать:

   for i:=1 to n do
       Adr[i]:=M[i,Adr[i]];
    Adress(Adr,0,100,maxn);
   Writeln(Adr[maxn]);
  readln;
end.

[Юля23]

что то не то...почему когда я ввожу границы например 20 и 30 он мне пишет числа больше и меньше этой границы? 62 80 и тд?

[WorldMaster]

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

нужно вводить 2 числа, а вы вроде номер строк вводите 1 и 5 да?вот почему ошибка диапазона...
123
456
789
при вводе 4 и 6 должен вывести адреса
[2,1],[2,2],[2,3]
а потом адрес максимального [2,3]
моя прога все правильно делает, но я не знаю как максимальный адрес найти и вывести

Получается что вам нужно найти элемент сумма индексов которого больше остальных.

procedure Adress(a:mas; p,q:integer; var b:integer);
var
      i,maxp, maxq :integer;
begin
    b:=-1;
    maxp=-1; // максимальные индексы, сами выведете наружу из процедуры
    maxq =-1;
    for i:=2 to n do
      if (a[i]>=p) and (a[i]<=q) then
          begin 
             if(p+q>b) then 
                begin
                  b := p+q;
                  maxp = p;
                  maxq = q;
                 end;
          end;
end;

Вот как то так наверное.

[Юля23]

Сообщение от Юля23 Посмотреть сообщение
нужно вводить 2 числа, а вы вроде номер строк вводите 1 и 5 да?вот почему ошибка диапазона...
123
456
789
при вводе 4 и 6 должен вывести адреса
[2,1],[2,2],[2,3]
а потом адрес максимального [2,3]
моя прога все правильно делает, но я не знаю как максимальный адрес найти и вывести
Получается что вам нужно найти элемент сумма индексов которого больше остальных.

там выводится адрес [2,3] потому что 6 число больше чем 4 и 5...

[WorldMaster]

Блин.. только сейчас заметил. В общем ваша функция работает со строками. Значит нужен еще один массив равный количеству строк.
Далее в каждой строке находите максимальный индекс и заносите в массив. Если в строке нету подходящих элементов то вписываете -1.
Затем из полученного массива выбираете максимальный элемент.

Но тут же не очень понятно по какому правилу определять максимальный индекс.
Вот например какой индекс больше [2,7] или [7,2].