Задан двумерный массив размером 5х5 частей. Потом, с клавиатуры вводитсяномер столбца

var

a: array [1..5, 1..5] of integer;

i, j, n: byte;

sum: integer;

begin

randomize;

writeln(' *** Исходный массив *** ');

for i := 1 to 5 do

begin

for j := 1 to 5 do

begin

a[i, j] := random(41) - 10;

write(a[i, j]:5);

end;

writeln;

end;

write('Введите столбца: ');

readln(n);

sum := 0;

for i := 1 to 5 do

sum := sum + a[i, n];

writeln('Сумма частей ', n, ' столбца = ', sum);

end.

// PascalABC.NET

// Версия 3.4 сборка 1749 (18.08.2018)

begin

MatrRandom(5,5,0,10).Println.Col(ReadInteger-1).Sum.Println;

end.