Question

Написать программу на языке программирования Pascal для решения следующей задачи: дан массив из 16 целых чисел. Вывести массив на экран в виде таблицы из четырёх строк и четырёх столбцов. Ввод массива, вывод массива оформить в виде подпрограммы. Заранее огромное спасибо.

Answer 1

PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018
Внимание! Если программа не работает, обновите версию!

function ВводМассива:=ReadArrInteger('Введите 16 чисел через пробел:',16);

procedure ВыводМассива(a:array of integer);
begin
  foreach var p in a.Batch(4) do begin
    foreach var q in p do Write(q:4);
    Writeln
    end
end;

begin
  ВыводМассива(ВводМассива)
end.

Answer 2

Конечно, вот программа на языке Pascal, которая решает данную задачу:

pascalCopy code
program PrintArrayAsTable;

const
  ROWS = 4;
  COLS = 4;

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

procedure InputArray(var arr: IntArray);
var
  i, j: Integer;
begin
  writeln('Введите элементы массива (16 целых чисел):');
  for i := 1 to ROWS do
  begin
    for j := 1 to COLS do
    begin
      write('Элемент [', i, ',', j, ']: ');
      readln(arr[i, j]);
    end;
  end;
end;

procedure OutputArray(const arr: IntArray);
var
  i, j: Integer;
begin
  writeln('Массив:');
  for i := 1 to ROWS do
  begin
    for j := 1 to COLS do
    begin
      write(arr[i, j]:5);
    end;
    writeln;
  end;
end;

var
  myArray: IntArray;

begin
  InputArray(myArray);
  OutputArray(myArray);

  // Чтобы консольное окно не закрывалось сразу после вывода массива
  readln;
end.

Обратите внимание, что программа использует две подпрограммы: InputArray для ввода массива и OutputArray для вывода массива в виде таблицы. Вывод массива оформлен так, чтобы каждый элемент массива занимал 5 символов, чтобы таблица была ровной и красивой.

Программа запрашивает у пользователя ввод 16 целых чисел и затем выводит их в виде 4x4 таблицы.