Question

Помогите пожалуйста!!!! Паскаль АВС В каждой строке двумерного массива поменять местами первый элемент и любой из максимальных. Использовать только циклы, без функция и т.п.

Answer 1

var a[1..5,1..5] of integer; b,i,j,l: integer;

Begin

// считываешь элементы массива. Сама справишься.

For i:=1 to 5 do

      for j:=2 to 5 do

            if a[i,1]<a[i,j] then a[i,1]:=a[i,j];

For i:=1 to 5 do begin

 for j:=1 to 5 do

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

   writeln;

 end;

end.

Answer 2

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

1. Создайте двумерный массив и заполните его значениями. 2. Для каждой строки массива найдите максимальный элемент и его индекс. 3. Поменяйте местами первый элемент строки с найденным максимальным элементом. 4. Повторите шаги 2-3 для каждой строки массива.

Вот пример кода на языке Pascal, который реализует описанный алгоритм:

program SwapFirstAndMax;
const
  N = 3; // количество строк массива
  M = 4; // количество столбцов массива
var
  arr: array[1..N, 1..M] of Integer;
  i, j, maxElement, maxIndex: Integer;
begin
  // Заполняем массив значениями
  arr[1, 1] := 10;
  arr[1, 2] := 20;
  arr[1, 3] := 30;
  arr[1, 4] := 40;
  
  arr[2, 1] := 50;
  arr[2, 2] := 60;
  arr[2, 3] := 70;
  arr[2, 4] := 80;
  
  arr[3, 1] := 90;
  arr[3, 2] := 100;
  arr[3, 3] := 110;
  arr[3, 4] := 120;
  
  // Обмен первого элемента каждой строки с максимальным элементом
  for i := 1 to N do
  begin
    // Находим максимальный элемент и его индекс в текущей строке
    maxElement := arr[i, 1];
    maxIndex := 1;
    for j := 2 to M do
    begin
      if arr[i, j] > maxElement then
      begin
        maxElement := arr[i, j];
        maxIndex := j;
      end;
    end;
    
    // Меняем местами первый элемент и максимальный элемент
    arr[i, maxIndex] := arr[i, 1];
    arr[i, 1] := maxElement;
  end;
  
  // Выводим измененный массив
  for i := 1 to N do
  begin
    for j := 1 to M do
    begin
      write(arr[i, j], ' ');
    end;
    writeln;
  end;
end.

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