Упорядочить строки массива по не возрастанию значений первых элементов строк

@vasya32 · Регистрация: 10.02.2014

Студворк — интернет-сервис помощи студентам

Составить программу обработки матрицы размерности NxM. Выполнить программу для N=3, M=4. В программе предусмотреть вывод исходной матрицы и полученной
Упорядочить (переставить) строки массива:По не возрастанию значений первых элементов строк.

@VlaNik · 28.02.2014, 10:23

Pascal

const
    nmax=100;
  var
    a: array[1..nmax,1..nmax] of integer;
    i,j,n,m,k,c: integer;
begin
  writeln('Kol-vo strok n:');
  readln(n);
  writeln('Kol-vo stolbcov m:');
  readln(m);
  writeln('massiv:');
  randomize;
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(9)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
 
   for i:=1 to n-1 do
   for j:=2 to n do
   if a[i,1]<a[j,1] then
   for k:=1 to m do
   begin
      c:=a[i,k];
      a[i,k]:=a[j,k];
      a[j,k]:=c;
   end;
 
  writeln('resultat:');
  for i:=1 to n do
  begin
  for j:=1 to m do
  write(a[i,j]:4);
  writeln;
  end;
  
end.

@vasya32 0 / 0 / 0 Регистрация: 10.02.2014 Сообщений: 2
		1
	Упорядочить строки массива по не возрастанию значений первых элементов строк 27.02.2014, 19:24. Показов 1532. Ответов 1 Метки нет (Все метки) Составить программу обработки матрицы размерности NxM. Выполнить программу для N=3, M=4. В программе предусмотреть вывод исходной матрицы и полученной Упорядочить (переставить) строки массива:По не возрастанию значений первых элементов строк. 0

Опции темы

Упорядочить строки массива по не возрастанию значений первых элементов строк

Решение