В моей программе есть функция вывода матрицы - MatrixGen. Вместо неё программа выводит нули. В чём ошибка?
UPD.: переписал программу. Но теперь она почему-то выводит больше чисел в матрице, чем нужно. В чём проблема?
{Учебная программа по генерации и выводу массива}
program arraytest;
uses crt;
type TArr = array [1..15] of integer;
TArr2 = array [1..15,1..30] of integer;
var i,j: byte;
A: TArr;
B,C: TArr2;
n,m: byte;
procedure ArrGeneration; //Процедура генерации массива
begin
for i:=1 to 15 do
begin
Randomize;
A[i]:=Random(40);
Writeln(A[i],' ');
end;
end;
function MatrixGen(var n, m: byte): integer;
begin
for i:=1 to n do
begin
for j:=1 to m do
begin
Randomize;
B[i,j]:=Random(40);
Writeln(B[i,j],' ':3);
end;
end;
end;
begin
clrscr;
Writeln('Массив целых чисел - от 1 до 15:');
ArrGeneration;
Writeln('');
Writeln('Сколько столбцов должно быть в матрице?');
Readln(n);
Writeln('А строк?');
Readln(m);
Writeln(' ');
MatrixGen(n, m);
end.