Динамические массивы

[Наташок]

Разработать программу выявления седловой точки в матрице размерности n*n. Матрица размещается в оперативной памяти в форме двухмерного массива динамически (значение n вводится по запросу с клавиатуры). Седловой точкой в матрице называют элемент, одновременно наибольший в своей строке и наименьший в своем столбце.Не получаются эти динамические массивы вообще.

[kolob2000]

Вот так:
int nstr, nstb;
cin >> nstr >> nstb;
int ** a =new int *[nstr];
for(int i = 0; i <nstr; i++)
a[i] = new int [nstb];

уничтожать так:
delete [ ] a;

[kolob2000]

Извини ошибся, тебе же на паскали нужно. Вечером напишу на паскал....

[Sparkman]

const n=5;
var dm:array of array of integer;
    i,j:integer;
begin
     Randomize;
     setlength(dm,n,n);
     for i:=0 to n-1 do
     begin
          for j:=0 to n-1 do
          begin
               dm[i,j]:=random(9);
               write(dm[i,j]:3);
          end;
          writeln;
     end;
     //определение седловой точки
end.

пс: актуально для object pascal (не для turbo etc.)

[Serge_Bliznykov]

var dm:array of array of integer;

оптимисты...
Если автору нужно именно на Pascal - то этот код не пойдёт. В стандартном Паскаль нет и не было динамических массивов.
Только указатели + выделение памяти...

[kolob2000]

Как же нет? А это что по вашему тогда?
<a href = "ru.m.wikipedia.org/wiki/Переменная_(программирование)">

[Наташок]

вот что получилось у меня.
но тут что-то неправильно.результат не выдает,выходит из выполнения программы.

program cedlo;
uses crt;
Type
   Mas = array [1..100] of integer;
   MasUk = array[1..100] of ^Mas;
Var
   a:^MasUk;
   N,I,J,R,p,min,max,maxj,minj:integer;
   z1,z2:boolean;
Begin
clrscr;
   {$R-}
   writeln('Vvedite razmernost kvadratnoy matricy:');
   read(N);
   writeln('Vvedite matricy:');
   GetMem(a,SizeOf(Mas)*N);
   For I:=1 to N do
       begin
         GetMem(a^[I],2*N);
         for J:=1 to N do
             read(a^[I]^[J]);
       end;

 for i:=1 to n do
 begin
min:=a^[i]^[1];
max:=a^[i]^[1];
maxj:=1;
minj:=1;
for j:=2 to n do
begin
  if a^[i]^[j] < min then
  begin
    min:=a^[i]^[j];
    minj:=j;
    end;
  if a^[i]^[j] >max then
  begin
    max:=a^[i]^[j];
    maxj:=j;
  end;
  end;
  z1:=true;
  z2:=true;
  
  for p:=1 to n do
  begin
  if min<a^[p]^[minj] then
  z1:=false;
  if max>a^[p]^[maxj] then
  z2:=false;
  end;
  if z1 then
  writeln('tochka', a^[i]^[minj],'i=',i,'j',minj);
  if z2 then
  writeln('tochka', a^[i]^[maxj],'i=',i,'j',maxj);
         end;
  freemem(a,sizeof(mas)*n);
     readln;
    {$r+}


    end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.