Ответы на вопрос:
function GetSumm(a: array[,] of integer; k: integer) :=
a.Col(k).Sum;
begin
var (m, n) := ReadInteger2('Число строк и столбцов матрицы:');
var a := MatrRandom(m, n, -99, 99);
a.Println;
var k := ReadInteger('Сумма какого столбца нужна?');
if k in (1..n) then
Print('Сумма равна', GetSumm(a, k - 1))
else
Print('Неверный номер столбца')
end.
Популярно: Информатика
-
barbariskaulyaЮлия16.10.2020 16:49
-
bannikovegor13.11.2022 18:42
-
anastysiaparsh07.07.2022 15:36
-
zhelavskaitanya01.02.2020 17:56
-
DashaKhodenkova20.10.2021 17:20
-
fumymovie19.06.2022 04:57
-
mysll816.03.2023 16:05
-
imamverdueffsa07.10.2020 18:50
-
ПавелКрут31.07.2020 11:25
-
xile4t09.04.2022 20:25