Question

Задана матрица A размера 5x7. Требуется вывести ее на экран так, чтобы каждая строка матрицы выводилась на экран с новой строки. (Pascal)

Answer 1

const  

n=5;

m=7;

var

a : array [1..n,1..m] of integer;

i, j :integer;

begin

randomize;

for i := 1 to n do

 for j := 1 to m do  

   a[i,j] := random(100)+1;

for i := 1 to n do

 begin

   for j := 1 to m do

     write(a[i,j]:4);

   writeln;

 end;

end.

Answer 2

Для вывода матрицы на экран с новой строки в Pascal, вы можете использовать двойной цикл для прохода по всем элементам матрицы и вывода каждой строки с новой строки. Вот пример кода:

pascalCopy code
program PrintMatrix;

const
  ROWS = 5;
  COLS = 7;

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

procedure PrintMatrixOnScreen(const A: Matrix);
var
  i, j: Integer;
begin
  for i := 1 to ROWS do
  begin
    for j := 1 to COLS do
      Write(A[i, j]:5); // Здесь можно задать нужный формат вывода (например, %d)
    Writeln; // Переход на новую строку после каждой строки матрицы
  end;
end;

var
  A: Matrix;
  i, j: Integer;
begin
  // В этом блоке инициализируем матрицу A, например, случайными значениями
  Randomize;
  for i := 1 to ROWS do
    for j := 1 to COLS do
      A[i, j] := Random(100); // Здесь случайные значения от 0 до 99

  // Выводим матрицу на экран
  PrintMatrixOnScreen(A);
end.

В этом примере мы создали процедуру PrintMatrixOnScreen, которая принимает матрицу A и выводит ее на экран с разделением строк. Затем в основной программе мы инициализируем матрицу случайными значениями и вызываем PrintMatrixOnScreen, чтобы вывести ее на экран.