Дан целый массив из 4 строк и 5 столбцов. Упорядочить массив по возрастанию элементов первой строки

Категория: Delphi/Pascal
2011-08-20 14:00:34

Дан целый массив из 4 строк и 5 столбцов. Упорядочить массив по возрастанию элементов первой строки.

code: #pascal
  1. Program Primer1;
  2.  Uses crt;
  3.  Type TMass=Array [1..4,1..5] of Integer;
  4.  var mass:TMass;
  5.  Procedure Vvod(var a:TMass);
  6.  var i,j:Integer;
  7.   begin
  8.     For i:=1 to 4 do
  9.     For j:=1 to 5 do
  10.      begin
  11.        Write('a[',i,',',j,']=');
  12.        Readln(a[i,j]);
  13.      end;
  14.    end;
  15.  Procedure ObmenStolbcov(k,l:Integer);
  16.  var b:Array [1..4] of Integer;
  17.      i:Integer;
  18.  begin
  19.    For i:=1 to 4 do
  20.     begin
  21.       b[i]:=mass[i,k];
  22.       mass[i,k]:=mass[i,l];
  23.       mass[i,l]:=b[i];
  24.     end;
  25.  end;
  26.  Procedure Vozrastanie(var a:TMass);
  27.  var i,j,min,N:Integer;
  28.  begin
  29.   For i:=1 to 5 do
  30.   begin
  31.    min:=a[1,i];
  32.    N:=i;
  33.    For j:=i+1 to 5 do
  34.      if a[1,j]<min then
  35.         begin
  36.           min:=a[1,j];
  37.           N:=j;
  38.         end;
  39.     If i<>N then ObmenStolbcov(i,N);
  40.    end;
  41.  end;
  42.  Procedure Vivod(a:TMass);
  43.  var i,j:Integer;
  44.  begin
  45.    For i:=1 to 4 do
  46.    For j:=1 to 5 do
  47.      Writeln('a[',i,',',j,']=',a[i,j]);
  48.  end;
  49.  begin
  50.   ClrScr;
  51.   Vvod(mass);
  52.   Vozrastanie(mass);
  53.   Vivod(mass);
  54.   Readkey;
  55.  end.
Поделиться:

Похожие статьи:

теги: двумерный массив, pascal, массив, студенты, консольное приложение