Question

Заполните двумерный массив 4×3 случайными целыми числами. Выведите его на экран.Найдите сумму элементов каждого столбца

Answer 1

var массив=[];

for (let сч1 = 0; сч1 < 3; сч1++) { массив.push([]); for (let сч2 = 0; сч2 < 4; сч2++) массив[сч1].push(Math.floor(Math.random() * 100))); }

массив.forEach(function (стр) { стр.forEach(function (кол) { document.write(кол + "<br />"); }); document.write("<br />"); });

var суммы = [];

for (let сч1 = 0; сч1 < 4; сч1++) { суммы.push(0); for (let сч2 = 0; сч2 < 3; сч2++) суммы[сч1] += массив[сч2][сч1]; }

Answer 2

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := MatrRandom(4, 3, -99, 99);

 a.Println(5); Writeln(5 * a.ColCount * '-');

 a.Cols.Select(Столбец -> $'{Столбец.Sum,5:d}').JoinIntoString('').Println

end.