Помогите!!!

[ГОолодный]

PascalABC.Дана целочисленная матрица. Найти количество строк(столбцов) все элементы которых различны. (Использовать надо динамический массив)

[Streletz]

Сообщение от ГОолодный

Дана целочисленная матрица. Найти количество строк(столбцов) все элементы которых различны. (Использовать надо динамический массив)

Самостоятельные попытки были? Где наработки?
Хоть бы язык программирования указали.

[ГОолодный]

Type tip=real ;
Const max_stb=65520 div SizeOf(tip);
      max_str=65520 div 4;
Type  Stroka=array[1..max_stb] of tip;
      PtStr=array[1..max_str] of ^Stroka;
Var i,m:1..max_str; j,n:max_stb; A:^PtStr;
m,n,i,j,p,k:byte;
 Begin
    Writeln('Введите размерность матрицы');
    readln(m,n);
    GetMam(A,4*m);//выделение памяти под m указателей
    for i:=1 to m do
     begin
      GetMam(A[i],n*SizeOf(Tip));//выделение памяти под n элементов i-й строки
      for j:=1 to n do
      A^[i]^[j]:=i+j;

      end;
end.

Вот как то так!

[ZX Spectrum-128]

А почему вы не воспользуетесь динамическими массивами? В паскале абц они явно введены.

Var
  A:array [,] of integer;
...
  A:= new integer[n,m];

[puporev]

В паскале абц они явно введены.

В Паскаль АВС.net да, в простом АВС нет.

[ZX Spectrum-128]

Опс, прошу прощения тогда.
И setlength(a,n,m); не будет работать?

[puporev]

в простом АВС нет.

[ГОолодный]

uses crt;
const nmax=20;


var a:array[1..nmax] of ^array[1..nmax] of ^integer;
    m,n,i,j,k,p,q,mn,jmn:integer;
    
    
begin
randomize;
repeat
write('Количество строк до ',nmax,' m=');
read(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
 new(a[i]); //выделяем память под массив a[i]
  for j:=1 to n do
   begin
   new(a[i]^[j]); //выделяем память
    a[i]^[j]^:=random(10);
    write(a[i]^[j]^:3);
   end;
  writeln;
 end;

Дальше не знаю как делать

[ZX Spectrum-128]

Дальше например так:
http://www.programmersforum.ru/showthread.php?t=246461