Процедуры, массивы

program z1;
uses crt;
const n=3; k=2;
var b:array [1..n,1..k] of real; i,j:integer;
begin
clrscr;
randomize;
for i:=1 to n do begin
for j:=1 to k do begin
b[i,j]:= random*10;
write (b[i,j]:3:1,' ');
if i=n then writeln;
end;
end;
readln;
end.

program z1;
uses crt;
const n=5;
      k=4;
type matr=array [1..n,1..k+1] of real;
procedure Print(var mt:matr);{процедура вывода матрицы на экран}
var i,j:byte;
begin
writeln('Произведение':k*5+15);
for i:=1 to n do
 begin
  for j:=1 to k+1 do
  if j=k+1 then write(mt[i,j]:10:2){под дополнительный столбец выделяем 10 позиций в строке}
  else write(mt[i,j]:5:2);{под остальные 5}
  writeln;
 end;
end;
 
var b:matr;
    p,x:real;
    i,j,l:byte;
begin
clrscr;
randomize;
for i:=1 to n do
for j:=1 to k do
b[i,j]:= random*10;{создаем массив}
for i:=1 to n do
 begin
  p:=1;
  for j:=1 to k do
  p:=p*b[i,j];{в каждой строке считаем произведение}
  b[i,k+1]:=p;{записываем его в дополнительный столбец}
 end;
writeln('Исходная матрица:');
Print(b);
for i:=1 to n-1 do
for j:=i+1 to n do
if b[i,k+1]>b[j,k+1] then{сортируем последний столбец по возрастанию}
for l:=1 to k+1 do{вместе с остальными столбцами}
 begin
  x:=b[i,l];
  b[i,l]:=b[j,l];
  b[j,l]:=x;
 end;
writeln('Результат:');
Print(b);
readln;
end.