Помогите с решением по Паскалю (сортировки)?

Question

Помогите с решением по Паскалю (сортировки)?

Помогите с решением по Паскалю (сортировки)?Дана целочисленная матрица A размерности NxN . Если минимальный элемент матрицы встречается более трех раз, то упорядочить строки матрицы по возрастанию максимальных элементов строк методом линейного выбора. В противном случае матрицу оставить без изменения

Гость

Ответ(ы) на вопрос:

Accepted Answer

program Project1; const nmax=10; var a:array[1..nmax,1..nmax] of integer; n,k,i,j,min,jmin:integer; begin readln(n); for i:=1 to n do begin for j:=1 to n do read(a[i,j]); readln end; min:=a[1,1]; jmin:=1; for i:=1 to n do for j:=1 to n do If a[i,j] < min then begin min:=a[i,j]; jmin:=1 end else if a[i,j]=min then jmin:=jmin+1; if jmin>3 then for i:=1 to n do for k:=1 to n-1 do begin min:=a[i,k]; jmin:=k; for j:=k+1 to n do if a[i,j] < min then begin min:=a[i,j]; jmin:=j end; a[i,jmin]:=a[i,k]; a[i,k]:=min end; for i:=1 to n do begin for j:=1 to n do write(a[i,j],); writeln end; readln end.