Developing.ru

Код: Выделить всё

program adr;
uses crt;
const n=10;
      k=89;
type Arr=array[1..n] of integer;
     AdrArr=array[1..n] of 0..n;
var Ar:array[1..n] of arr;
    Ad:AdrArr;
    i,j:1..n;
    p,q:integer;

procedure FindPos(a:arr; p,q:integer; var b:AdrArr);
var i,j:1..n;
begin
  j:=1;
  for i:=1 to n do
    if (a[i]>=p) and (a[i]<=q) then 
      begin
         b[j]:=i;
         inc(j);
      end;
end;

begin  clrscr;
  randomize;
  writeln('Ishodniy massiv:',#10#13);
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          Ar[i][j]:=random(k)+10;
          write(Ar[i][j],' ');
        end;
      writeln;
    end;

  writeln(#10#13,'Wwedite p i q:',#10#13); readln(p,q);
  writeln('Elementi znacheniya kotorih nahodyatsya v otrezke [',p,',',q,'], raspolozheni po sled. adresam:');
  for i:=1 to n do
    begin
      FindPos(Ar[i],p,q,Ad);
      j:=1;
      while ad[j]<>0 do
        begin
          writeln('(',i,',',ad[j],')');
          Ad[j]:=0;
          inc(j);
        end;
    end;
 ReadKey;
end.