Написать программу на языке программирования pascal для решения следующей : дан массив из 16 целых чисел. вывести массив на экран в виде таблицы из четырёх строк и четырёх столбцов. ввод массива, вывод массива оформить в виде подпрограммы. заранее огромное .
Внимание! Если программа не работает, обновите версию!
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.