Question

ПОМОГИТЕ ПОЗЯЯЛУЙСТА 50 БАЛЛОВ pascal abc net Дан двумерный массив 5 на 7 ,заполненный случайным образом . Найти наименьшие и наибольшие элементы двумерного массива и поменять их местами

Answer 1

var a: array [1..5, 1..7] of integer;

i,j,max,min: integer;

begin

for i:=1 to 5 do  

for j:=1 to 7 do  

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

max:=-1;

min:=101;

for i:=1 to 5 do begin

for j:=1 to 7 do  

write(A[i,j]:5);

writeln();

end;

 

for i:=1 to 5 do  

for j:=1 to 7 do  

 if A[i,j]>max then max:=A[i,j];

for i:=1 to 5 do  

for j:=1 to 7 do  

 if A[i,j]<min then min:=A[i,j];

for i:=1 to 5 do  

for j:=1 to 7 do begin

 if A[i,j]=max then A[i,j]:=min

 else if A[i,j]=min then A[i,j]:=max;

end;

 

writeln();

for i:=1 to 5 do begin

for j:=1 to 7 do  

write(A[i,j]:5);

writeln();

end;

end.

 

Answer 2

Конечно, я могу помочь вам решить задачу с помощью языка Pascal. Вот пример программы, которая находит наименьший и наибольший элементы в двумерном массиве 5 на 7 и меняет их местами:

pascalCopy code
program MinMaxSwap;

const
  ROWS = 5;
  COLS = 7;

type
  TwoDimensionalArray = array[1..ROWS, 1..COLS] of Integer;

var
  arr: TwoDimensionalArray;
  i, j, min, max, minRow, minCol, maxRow, maxCol, temp: Integer;

begin
  Randomize; // Инициализация генератора случайных чисел
  
  // Заполнение массива случайными значениями
  for i := 1 to ROWS do
  begin
    for j := 1 to COLS do
    begin
      arr[i, j] := Random(100); // Генерация случайного числа от 0 до 99
      Write(arr[i, j]:4); // Вывод элемента массива
    end;
    Writeln;
  end;

  // Нахождение наименьшего и наибольшего элементов
  min := arr[1, 1];
  max := arr[1, 1];
  for i := 1 to ROWS do
  begin
    for j := 1 to COLS do
    begin
      if arr[i, j] < min then
      begin
        min := arr[i, j];
        minRow := i;
        minCol := j;
      end;
      if arr[i, j] > max then
      begin
        max := arr[i, j];
        maxRow := i;
        maxCol := j;
      end;
    end;
  end;

  // Меняем местами наименьший и наибольший элементы
  temp := arr[minRow, minCol];
  arr[minRow, minCol] := arr[maxRow, maxCol];
  arr[maxRow, maxCol] := temp;

  Writeln('Массив после замены:');
  // Вывод массива после замены
  for i := 1 to ROWS do
  begin
    for j := 1 to COLS do
    begin
      Write(arr[i, j]:4);
    end;
    Writeln;
  end;
end.

Эта программа создает двумерный массив 5 на 7 и заполняет его случайными числами. Затем она находит наименьший и наибольший элементы, записывает их позиции и меняет их местами. Наконец, программа выводит измененный массив на экран.

Удачи вам! Если у вас возникнут еще вопросы, не стесняйтесь задавать.