, ДВУМЕРНЫЕ МАССИВЫ НА ПАСКАЛЕ

Matrix8. Дана матрица размера M × N и целое число K (1 ≤ K ≤ N). Вывести элементы K-го столбца данной матрицы.

Program zadanie;

const M=9; N=16;

var i,j,K:integer;

a:array[1..M,1..N] of integer;

begin

for i:=1 to M do begin

 for j:=1 to N do begin

   a[i,j]:=random(9)+1;

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

   end;

 writeln();

 end;

readln(K);

writeln('Элементы ',K,'-ого столбца: ');

for i:=1 to M do begin

 writeln(a[i,K]);

 end;

end.