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

[Atreides]

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

[Atreides]

Сделал по примеру матрицу, задаю значения i,j, а на выходе получаю матрицу из одной строки и одного значения. В чем проблема? Как сделать так, чтобы после того как задан размер матрицы, я смог задавать значения этой матрицы построчно? Random соответственно надо убрать.

Код

program Matrix;

{$APPTYPE CONSOLE}
uses
  SysUtils;

  var
     mx: array of array of integer;
     i, j: integer;
      m,n:cardinal;

  procedure inputmatrix;
  var i,j:cardinal;
     begin
  Write('i = '); Readln(i);
  Write('j = '); Readln(j);
  SetLength(mx, i, j);

  writeln;
  i:=1; repeat
  j:=1; repeat
  mx[i,j]:=random(999);
  j:=j+1;
  until
  j>m;
  i:=i+1;
  until
  i>n;
   end;

  procedure outputmatrix;
  var i,j:cardinal;
  begin
  i:=1; repeat
  j:=1; repeat
  write(mx[i,j]:6);
  j:=j+1; until
  j>m;
  i:=i+1; writeln;
  until i>n; end;

  begin
  randomize;
  inputmatrix;
  outputmatrix;
  readln;
  SetLength(mx, 0, 0);
  end.

Сообщение отредактировано: Atreides - 5.05.2007 22:18