По разделам

 

Решение задачи Matrix 52


Дана матрица размера M × N. Поменять местами столбцы, содержащие минимальный и максимальный элементы матрицы.

Код (Pascal)

program Matrix52;
type
  matrix = array [1..10,1..10] of integer;
 
var
  a:matrix;
  MinI,MinJ, MaxI, MaxJ, M, N, i, j, K1, K2:Integer;
 
procedure Swap(var X,Y:Integer);
begin
 if x<>y then
  begin
   X:=X+Y;
   Y:=X-Y;
   X:=X-Y;
  end;
end;
 
procedure SwapMatrixColumn(var mat:matrix; X,Y:Integer);
var
 i:integer;
begin
 if x<>y then
  for i:=1 to M do
   swap(mat[i,x], mat[i,y]);
end;
 
begin
 Write('N: ');
 Readln(N);
 Write('M: ');
 Readln(M);
 
 for  i:=1 to M do
  begin
   writeln(i,': ');
   for j:=1 to N do
    begin
     Write(j,' : ');
     Read(a[i,j]);
    end;
  end;
 
 MaxI:=1;
 MaxJ:=1;
 MinI:=1;
 MinJ:=1;
 
 for  j:=1 to N do
  begin
 
   for i:=2 to M do
    begin
     if a[i,j]>a[MaxI,MaxJ] then
      begin
       MaxI:=i;
       MaxJ:=j
      end;
     if a[i,j]<a[MinI,MaxJ] then
      begin
       MinI:=i;
       MinJ:=j;
      end;
    end;
  end;
 
 SwapMatrixColumn(a, MaxJ, MinJ);
 
 for  i:=1 to M do
  begin
   for j:=1 to N do
    begin
     Write(' : ',a[i,j]);
    end;
   writeln(' : ');
  end;
end.
									




Matrix. Абрамян
Matrix 1 Просмотров: 227
Matrix 2 Просмотров: 148
Matrix 3 Просмотров: 119
Matrix 4 Просмотров: 108
Matrix 5 Просмотров: 149
Matrix 6 Просмотров: 115
Matrix 7 Просмотров: 128
Matrix 8 Просмотров: 127
Matrix 9 Просмотров: 120
Matrix 10 Просмотров: 142
Matrix 11 Просмотров: 124
Matrix 12 Просмотров: 175
Matrix 13 Просмотров: 155
Matrix 14 Просмотров: 106
Matrix 15 Просмотров: 164
Matrix 16 Просмотров: 137
Matrix 17 Просмотров: 192
Matrix 18 Просмотров: 109
Matrix 19 Просмотров: 158
Matrix 20 Просмотров: 205
Matrix 21 Просмотров: 100
Matrix 22 Просмотров: 97
Matrix 23 Просмотров: 118
Matrix 24 Просмотров: 111
Matrix 25 Просмотров: 122
Matrix 26 Просмотров: 122
Matrix 27 Просмотров: 118
Matrix 28 Просмотров: 95
Matrix 29 Просмотров: 94
Matrix 30 Просмотров: 103
Matrix 31 Просмотров: 87
Matrix 32 Просмотров: 100
Matrix 33 Просмотров: 106
Matrix 34 Просмотров: 129
Matrix 35 Просмотров: 99
Matrix 36 Просмотров: 140
Matrix 37 Просмотров: 109
Matrix 38 Просмотров: 118
Matrix 39 Просмотров: 81
Matrix 40 Просмотров: 83
Matrix 41 Просмотров: 122
Matrix 42 Просмотров: 91
Matrix 43 Просмотров: 95
Matrix 44 Просмотров: 97
Matrix 45 Просмотров: 82
Matrix 46 Просмотров: 77
Matrix 47 Просмотров: 109
Matrix 48 Просмотров: 91
Matrix 49 Просмотров: 97
Matrix 50 Просмотров: 95
Matrix 51 Просмотров: 80
Matrix 52 Просмотров: 87
Matrix 53 Просмотров: 91
Matrix 54 Просмотров: 111
Matrix 55 Просмотров: 73
Matrix 56 Просмотров: 83
Matrix 57 Просмотров: 80
Matrix 58 Просмотров: 80
Matrix 59 Просмотров: 86
Matrix 60 Просмотров: 84
Matrix 61 Просмотров: 105
Matrix 62 Просмотров: 119
Matrix 63 Просмотров: 89
Matrix 64 Просмотров: 121
Matrix 65 Просмотров: 106
Matrix 66 Просмотров: 113
Matrix 67 Просмотров: 107
Matrix 68 Просмотров: 96
Matrix 69 Просмотров: 96
Matrix 70 Просмотров: 69
Matrix 71 Просмотров: 68
Matrix 72 Просмотров: 75
Matrix 73 Просмотров: 75
Matrix 74 Просмотров: 107
Matrix 75 Просмотров: 103
Matrix 76 Просмотров: 83
Matrix 77 Просмотров: 100
Matrix 78 Просмотров: 89
Matrix 79 Просмотров: 107
Matrix 80 Просмотров: 90
Matrix 81 Просмотров: 91
Matrix 82 Просмотров: 67
Matrix 83 Просмотров: 107
Matrix 84 Просмотров: 90
Matrix 85 Просмотров: 77
Matrix 86 Просмотров: 65
Matrix 87 Просмотров: 93
Matrix 88 Просмотров: 77
Matrix 89 Просмотров: 66
Matrix 90 Просмотров: 70
Matrix 91 Просмотров: 68
Matrix 92 Просмотров: 83
Matrix 93 Просмотров: 84
Matrix 94 Просмотров: 87
Matrix 95 Просмотров: 87
Matrix 96 Просмотров: 90
Matrix 97 Просмотров: 73
Matrix 98 Просмотров: 61
Matrix 99 Просмотров: 93
Matrix 100 Просмотров: 84

Комментарии

Чтобы написать комментарии вам нужно войти в систему или зарегистрироваться