Question

Ввод двумерного массива с клавиатуры и вывод его на экран в виде матрицы Pascal ABC

Answer 1

Ответ:

Объяснение:

program TwoDimensionalArray;

var

   rows, cols, i, j: integer;

   arr: array [1..9999, 1..9999] of integer;

begin

   writeln('Введите кол-во строк:'); readln(rows);

   writeln('Введите кол-во столбцов:'); readln(cols);

   writeln('Вводите элементы матрицы: ');

   for i := 1 to rows do

       for j := 1 to cols do  

           readln(arr[i, j]);

           

   for i := 1 to rows do begin

       for j := 1 to cols do

           write(arr[i, j], ' ');

       writeln

   end;    

end.

Answer 2

Для ввода двумерного массива с клавиатуры и вывода его на экран в виде матрицы в Pascal ABC, вы можете воспользоваться следующим кодом:

pascalCopy code
program MatrixInputOutput;

const
  MaxRows = 10;
  MaxCols = 10;

var
  Matrix: array[1..MaxRows, 1..MaxCols] of Integer;
  Rows, Cols, i, j: Integer;

begin
  Write('Введите количество строк: ');
  Readln(Rows);

  Write('Введите количество столбцов: ');
  Readln(Cols);

  if (Rows > MaxRows) or (Cols > MaxCols) then
  begin
    Writeln('Слишком большой размер матрицы. Максимальные размеры: 10x10.');
    Exit;
  end;

  Writeln('Введите элементы матрицы:');
  for i := 1 to Rows do
  begin
    for j := 1 to Cols do
    begin
      Write('Элемент (', i, ', ', j, '): ');
      Readln(Matrix[i, j]);
    end;
  end;

  Writeln('Матрица:');
  for i := 1 to Rows do
  begin
    for j := 1 to Cols do
      Write(Matrix[i, j]:4); // Вывод элементов с выравниванием
    Writeln; // Переход на новую строку для следующей строки матрицы
  end;

  Readln; // Чтобы консольное окно не закрывалось сразу
end.

Этот код позволит вам ввести размеры матрицы, затем ввести её элементы и вывести матрицу на экран в виде Pascal ABC. Обратите внимание, что в этом примере используются массивы с предварительно определенным максимальным размером (10x10), но вы можете изменить этот размер по вашему усмотрению.