Целочисленная прямоугольная матрица

[Vano_P]

Дана целочисленная прямоугольная матрица. Определить:
1) Количество строк, без нулевых элементов;
2) Максимальное из чисел, встречающихся в заданной матрице более одного раза.
При выполнении задания использовать динамический массив

[Аватар]

Покажите свои наработки, конкретные вопросы и т.п.

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.

[newerow1989]

const rand=21;
var i,j,a,b,k:integer;
    p:array of array of integer;
    pr:array[0..rand-1] of integer;
    d:boolean;
begin
   Randomize;
   a:=5+Random(10);
   b:=5+Random(10);
   SetLength(p,a,b);
   For i:=0 to a-1 do
   begin
      For j:=0 to b-1 do
      begin
         p[i,j]:=Random(rand);
         Write(p[i,j]:2,'  ');
      end;
      Writeln;
   end;
   Writeln;
   k:=0;
   For i:=0 to a-1 do
   begin
      d:=false;//no 0
      For j:=0 to b-1 do
         If p[i,j]=0 then
         begin
            d:=true;//est 0
            Break;
         end;
      If not d then
         k:=k+1;
   end;
   Writeln('strok = ',k);
   For i:=0 to rand-1 do
      pr[i]:=0;
   For i:=0 to a-1 do
      For j:=0 to b-1 do
         Inc(pr[p[i,j]],1);
   For i:=rand-1 downto 0 do
      If pr[i]>1 then
      begin
         Writeln('max: ',i,' - ',pr[i]);
         Break;
      end;
   Readln;
end.