Замена элементов в двумерном массиве

Posted by obzor under Pascal

В двумерном массиве поменять местами в каждом столбце первый элемент и последний минимальный элемент.

newerow1989

var p:array[1..10,1..10] of integer;
    i,j,im,z:integer;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      For j:=1 to 10 do
      begin
         p[ i,j]:=Random(11);
         Write(p[ i,j]:3,'  ');
      end;
      Writeln;
   end;
   Writeln;
   For j:=1 to 10 do
   begin
      im:=1;
      For i:=2 to 10 do
         If p[ i,j]<=p[ im,j] then
            im:=i;
      z:=p[1,j];
      p[1,j]:=p[ im,j];
      p[ im,j]:=z;
   end;
   For i:=1 to 10 do
   begin
      For j:=1 to 10 do
         Write(p[ i,j]:3,'  ');
      Writeln;
   end;
   Writeln;
   Readln;
end.

тема на форуме

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

• Удалить повторяющиеся элементы из массива (VBA в Excel)
• Сортировка кучей на языке Си
• Pascal — Заполнить массив случайными числами
• Реализация процедуры поиска max элемента одномерного массива
• PascalABC.net — Заполнить массив случайными числами и найти сумму элементов
• Удаление элементов из одномерного массива
• Как быть, если полученный массив Excel VBA имеет всего одно значение
• Считывание двумерного массива из потока данных
• Есть ли в массиве А[n] числа В и С и определить, какое из чисел встречается в массиве чаще
• Обнуления массива слов на Ассемблере