Question

Написать программу в паскале Массив 5х3 заполнить случайными числами [0;100]. В каждой строке поменять местами максимальное и минимальное число.

Answer 1

const g = 5; v = 3;

var a: array[1..g,1..v] of integer;

i,j,maxj,minj,p:integer;

begin

writeln('Массив: ');

for i:=1 to g do

begin

for j:=1 to v do

begin

a[i,j]:=Random(101);

write(a[i,j]:4)

end;

writeln

end;

for i:=1 to g do

begin

maxj:=1;

minj:=1;

for j:=1 to v do

begin

if a[i,j]>a[i,maxj] then maxj:=j;

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

end;

p:=a[i,maxj];

a[i,maxj]:=a[i,minj];

a[i,minj]:=p;

end;

writeln;

writeln('Преобразованный массив: ');

for i:=1 to g do

begin

for j:=1 to v do write(a[i,j]:4);

writeln

end;

end.

Answer 2

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

pascalCopy code
program SwapMinMax;
uses crt;

const
  Rows = 5;
  Cols = 3;

type
  Matrix = array[1..Rows, 1..Cols] of Integer;

procedure FillMatrixRandomly(var matrix: Matrix);
var
  i, j: Integer;
begin
  Randomize;
  for i := 1 to Rows do
    for j := 1 to Cols do
      matrix[i, j] := Random(101); // случайное число в диапазоне [0, 100]
end;

procedure SwapMinAndMax(var matrix: Matrix);
var
  i, j, min, max, minRow, maxRow: Integer;
begin
  for i := 1 to Rows do
  begin
    min := matrix[i, 1];
    max := matrix[i, 1];
    minRow := 1;
    maxRow := 1;

    for j := 2 to Cols do
    begin
      if matrix[i, j] < min then
      begin
        min := matrix[i, j];
        minRow := j;
      end;

      if matrix[i, j] > max then
      begin
        max := matrix[i, j];
        maxRow := j;
      end;
    end;

    // Меняем местами минимальное и максимальное число
    matrix[i, minRow] := max;
    matrix[i, maxRow] := min;
  end;
end;

procedure PrintMatrix(const matrix: Matrix);
var
  i, j: Integer;
begin
  for i := 1 to Rows do
  begin
    for j := 1 to Cols do
      Write(matrix[i, j]:5);
    Writeln;
  end;
end;

var
  matrix: Matrix;

begin
  FillMatrixRandomly(matrix);
  
  Writeln('Исходная матрица:');
  PrintMatrix(matrix);
  
  SwapMinAndMax(matrix);
  
  Writeln('Матрица после замены минимальных и максимальных чисел:');
  PrintMatrix(matrix);
  
  Readln;
end.

Программа начинает с объявления типа Matrix, представляющего двумерный массив размером 5x3, и содержит три процедуры: FillMatrixRandomly для заполнения матрицы случайными числами, SwapMinAndMax для замены минимального и максимального чисел в каждой строке, и PrintMatrix для вывода матрицы на экран.

В FillMatrixRandomly используется процедура Randomize, чтобы инициализировать генератор случайных чисел, а затем заполняется каждый элемент матрицы случайным числом в диапазоне [0, 100].

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

В конечном итоге, исходная матрица вывод