Создание Матрицы, Создание произвольной матрицы Опции

[Atreides]

Возник один вопросик: нужно сделать матрицу и посчитать в ней сумму элементов каждой строки, разделить сумму этой строки на количество элементов этой строки. Но размерность матрицы должна задаваться вручную, причем произвольно, вот как взбредет в голову, так и сделать, т.е. 2х2 или 3х10, а может и 10х3 и т.д..

[Atreides]

А я пробовал так. Сделал матрицу, но она 10х10 и задается заранее, заполняется случайным образом, а как сделать, чтобы я мог сам выбрать кол-во строк и столбцов? Пробовал задавать m и n как:
Writeln(‘m’,m);
Read(m);
Writeln(‘n’,n);
Read(n);
Но консоль после этого вылетает. В чем косяк?

Код

Type TMatrix=array[1..100,1..100] of integer;
  var x:TMatrix;
    y:integer;
  procedure inputmatrix(var a:TMatrix; m,n:cardinal);
  var i,j:cardinal;
  begin
  writeln;
  i:=1; repeat
  j:=1; repeat
  a[i,j]:=random(999);
  j:=j+1;
  until
  j>m;
  i:=i+1;
  until
  i>n; end;
  procedure outputmatrix(a:TMatrix; m,n:cardinal);
  var i,j:cardinal;
  begin
  i:=1; repeat
  j:=1; repeat
  write(a[i,j]:6);
  j:=j+1; until
  j>m;
  i:=i+1; writeln;
  until i>n; end;

  begin
  randomize;
  inputmatrix(x,10,10);
  outputmatrix(x,10,10);
  readln;
  end.

Вроде, динамические массивы в Дельфях никто не отменял:

Это как? Я могу их заменить переменными и задавать вручную?

Сообщение отредактировано: Atreides - 2.05.2007 0:03