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

[Atreides]

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

[volvo]

Ты сам себя запутываешь этим Repeat/Until, а зачем?

Вот так:

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(n);
  Write('j = '); Readln(m);
  SetLength(mx, n, m);

  writeln;
  for i := 0 to n - 1 do
    for j := 0 to m - 1 do
      mx[i,j]:=random(999);
  end;

  procedure outputmatrix;
  var i,j:cardinal;
  begin
    for i := 0 to n - 1 do begin
      for j := 0 to m - 1 do
        write(mx[i,j]:6);
      writeln;
    end;
  end;

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

Обрати внимание на индексацию - она начинается с 0...