Question

ребята как в двумерном массиве найти два минимальных элемента именно в первой строке. подскажите (Паскаль)​

Answer 1

const

N = 10;

var

a: array [1..N, 1..N] of integer;

i, j, iMin1, iMin2 : integer;

begin

randomize;

for i := 1 to N do

   begin

   for j := 1 to N do

       begin

       A[i][j] := random(100) - 50;

       write(a[i][j], ' ');

       end;

   writeln;

   end;

iMin1 := 1;

iMin2 := 2;

for i := 3 to N do

   begin

   if a[1][i] < a[1][iMin1] then

       begin

       if a[1][iMin1] < a[1][iMin2] then

           iMin2 := iMin1;

       iMin1 := i;

       end

   else if a[1][i] < a[1][iMin2] then

       iMin2 := i;

   end;

   

writeln(a[1][iMin1]);

writeln(a[1][iMin2]);

end.

Answer 2

Для того чтобы найти два минимальных элемента именно в первой строке двумерного массива в Pascal, можно использовать следующий алгоритм:

1. Инициализируйте две переменные `min1` и `min2` значением максимального целого числа (например, `MaxInt`). 2. Пройдитесь по элементам первой строки массива и сравните каждый элемент с текущими значениями `min1` и `min2`. 3. Если текущий элемент меньше `min1`, обновите значения `min1` и `min2` соответствующим образом. 4. Если текущий элемент больше или равен `min1`, но меньше `min2`, обновите значение `min2`. 5. После прохода по всем элементам первой строки, `min1` и `min2` будут содержать два минимальных элемента.

Вот пример кода на Pascal, реализующий этот алгоритм:

const
  N = 5; // размерность массива

var
  arr: array[1..N, 1..N] of Integer; // двумерный массив
  min1, min2: Integer; // переменные для хранения двух минимальных элементов
  i: Integer; // счетчик

begin
  // Заполнение массива (пример)
  arr[1, 1] := 5;
  arr[1, 2] := 3;
  arr[1, 3] := 8;
  arr[1, 4] := 2;
  arr[1, 5] := 6;

// Инициализация переменных
  min1 := MaxInt;
  min2 := MaxInt;

// Поиск двух минимальных элементов в первой строке
  for i := 1 to N do
  begin
    if arr[1, i] < min1 then
    begin
      min2 := min1;
      min1 := arr[1, i];
    end
    else if (arr[1, i] >= min1) and (arr[1, i] < min2) then
    begin
      min2 := arr[1, i];
    end;
  end;

// Вывод результатов
  WriteLn('Первый минимальный элемент: ', min1);
  WriteLn('Второй минимальный элемент: ', min2);
end.

Пожалуйста, обратите внимание, что в приведенном примере массив заполняется вручную для наглядности. В реальной программе вам может потребоваться заполнить массив данными из внешнего источника или сгенерировать случайные значения.

Примечание: Предоставленный код является примером и может потребовать доработки в зависимости от ваших конкретных требований и структуры массива.