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.