Дан двумерный массив a (m, n) отсортировать строки матрицы по возрастанию (массив вводить самой) - Turbo Pascal
Формулировка задачи:
дан двумерный массив a ( m, n ) отсортировать строки матрицы по возрастанию ( массив вводить самой )
Решение задачи: «Дан двумерный массив a (m, n) отсортировать строки матрицы по возрастанию (массив вводить самой)»
textual
Листинг программы
uses crt; const nmax=20; var a:array[1..nmax,1..nmax] of integer; m,n,i,j,k,x:integer; begin clrscr; randomize; repeat write('Количество строк до ',nmax,' m='); readln(m); until m in [1..nmax]; repeat write('Количество столбцов до ',nmax,' n='); readln(n); until n in [1..nmax]; for i:=1 to m do for j:=1 to n do begin write('a[',i,',',j,']='); readln(a[i,j]) end; clrscr; writeln('Исходная матрица:'); for i:=1 to m do begin for j:=1 to n do write(a[i,j]:3); writeln; end; for i:=1 to m do for j:=1 to n-1 do for k:=j+1 to n do if a[i,j]>a[i,k] then begin x:=a[i,j]; a[i,j]:=a[i,k]; a[i,k]:=x end; writeln('Отсортированные строки'); for i:=1 to m do begin for j:=1 to n do write(a[i,j]:3); writeln end; readln end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д