Question

(55 баллов)(Pascal) Заполнить исходную матрицу N[5,7] случайными числами из диапазона от -50 до 50. Вывести матрицу на экран. В одномерный массив Y записать min и max элементы каждого столбца матрицы. Вывести полученный массив на экран.

Answer 1

===== PascalABC.NET =====

begin

 var N := MatrRandom(5, 7, -50, 50);

 N.Println(4);

 var Y := new integer[2 * N.ColCount];

 for var j := 0 to N.ColCount - 1 do

 begin

   var s := N.Col(j);

   Y[2 * j] := s.Min;

   Y[2*j+1] := s.Max

 end;

 Y.Println

end.

Answer 2

Вот пример решения вашей задачи на языке программирования Pascal:

pascalCopy code
program MatrixMinMax;

const
  ROWS = 5;
  COLS = 7;

var
  N: array[1..ROWS, 1..COLS] of Integer;
  Y: array[1..2*COLS] of Integer;
  i, j: Integer;

begin
  Randomize;

  // Заполнение матрицы N случайными числами
  for i := 1 to ROWS do
    for j := 1 to COLS do
      N[i, j] := Random(101) - 50; // Генерируем случайное число от -50 до 50

  // Вывод матрицы на экран
  for i := 1 to ROWS do
  begin
    for j := 1 to COLS do
      Write(N[i, j]:4);
    Writeln;
  end;

  // Запись min и max элементов каждого столбца в массив Y
  for j := 1 to COLS do
  begin
    Y[2*j - 1] := N[1, j]; // Инициализируем min значением первого элемента столбца
    Y[2*j] := N[1, j];     // Инициализируем max значением первого элемента столбца

    for i := 2 to ROWS do
    begin
      if N[i, j] < Y[2*j - 1] then
        Y[2*j - 1] := N[i, j]; // Обновляем min

      if N[i, j] > Y[2*j] then
        Y[2*j] := N[i, j];     // Обновляем max
    end;
  end;

  // Вывод массива Y на экран
  Writeln('Массив Y:');
  for i := 1 to 2*COLS do
    Write(Y[i]:4);

  Readln;
end.

Программа генерирует случайные числа и заполняет матрицу N[5,7] диапазоном от -50 до 50. Затем она выводит матрицу на экран. Далее, она записывает минимальные и максимальные элементы каждого столбца матрицы в одномерный массив Y. И, наконец, выводит полученный массив Y на экран.