ANTICHAT — форум по информационной безопасности, OSINT и технологиям

program matr1;
uses crt;
 const n=5;
 const m=10;
 type s=array[1..n,1..m] of integer;
 const a:s=((1,1,1,1,1,6,7,8,9,10),
	  (1,2,2,2,5,6,7,8,9,10),
	  (1,2,3,3,5,6,7,8,9,10),
	  (1,7,7,7,7,7,7,7,7,10),
	  (1,2,3,7,7,7,7,7,7,10));
 var i,j,gl,loc,r,x,k:integer;
      b: array[1..n] of integer;
   begin
   clrscr;
    writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    write(a[i,j]:3);
   end;
 writeln;
end;
{Подсчет количества одинаковых элементов}
for i:=1 to n do begin
  gl:=0;
  for j:=1 to m-1 do begin
    loc:=1;
    for r:=j+1 to m do
      if a[i,j]=a[i,r] then loc:=loc+1;
    if loc>gl then begin gl:=loc; loc:=0 end;
  end;
  b[i]:=gl;
end;
for i:=1 to n do write(b[i],' ');
writeln;
for i:=1 to n-1 do begin
  x:=b[i]; k:=i;
  for j:=i+1 to n do
   if b[j]<x then begin x:=b[j]; k:=j end;
   b[k]:=b[i]; b[i]:=x;

(Вот здесь чего то нехватает)

end;
    for i:=1 to n do write(b[i],' ');
writeln;
readkey;
end.

type
  TMatrixStrings = record
    StringNumber: integer;
    Count: integer;
  end;

program matr1;
uses crt;
 const n=5;
 const m=10;
 type s=array[1..n,1..m] of integer;
 const a:s=((1,1,1,1,1,6,7,8,9,10),
	  (1,2,2,2,5,6,7,8,9,10),
	  (1,2,3,3,5,6,7,8,9,10),
	  (1,7,7,7,7,7,7,7,7,10),
	  (1,2,3,7,7,7,7,7,7,10));

type
  TMatrixStrings = record
    StringNumber: integer;
    Count: integer;
  end;


var i, j, gl, loc, r, x, k: integer;
      b: array[1..n] of TMatrixStrings;
begin
  clrscr;
  writeln('Исходная матрица:');
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          write(a[i,j]:3);
        end;
      writeln;
     end;

{Подсчет количества одинаковых элементов}
for i:=1 to n do begin
  gl:=0;
  for j:=1 to m-1 do begin
    loc:=1;
    for r:=j+1 to m do
      if a[i,j]=a[i,r] then loc:=loc+1;
    if loc>gl then begin gl:=loc; loc:=0 end;
  end;
  b[i].count:=gl;
  b[i].StringNumber := i;
end;

for i:=1 to n do 
  write(b[i].count,' ');

writeln;

// сортировка
for i:=1 to n-1 do 
  begin
    x:=b[i].count; k:=i;
    for j:=i+1 to n do
      if b[j].count<x then 
        begin 
          x:=b[j].count; 
          k:=j; 
        end;
    b[k].count:=b[i].count; 
    b[i].count:=x;
    
    x := b[i].StringNumber;
    b[i].StringNumber := b[k].StringNumber
    b[k].StringNumber := x;
  end;
    
// вывод упорядоченной матрицы
for i:=1 to n do 
  writeln(a[b[i].StringNumber]);
writeln;
readkey;
end.

ListBox1.Items.Add(ListBox2.Items[2]);