Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для ferget

Разный


Сообщения: 1294
Благодарности: 359

Профиль | Отправить PM | Цитировать


Код: Выделить весь код
type Matrix = array of array of integer;

function CreateMatrix(m,n: integer): Matrix;
begin
  SetLength(Result,m);
  for var i:=0 to m-1 do
    SetLength(Result[i],n);
end;

procedure FillMatrByRandom(matr: Matrix);
begin
  for var i:=0 to matr.Length-1 do
  for var j:=0 to matr[0].Length-1 do
    matr[i][j] := Random(100);  
end;

var matr: Matrix;

begin
  var a :integer;
  var b :integer;
  
  writeln('Введите параметр для строк: ');
            readln(a);
 
            writeln('Введите параметр для столбцов: ');
            readln(b);
  matr := CreateMatrix(a,b);
  
  FillMatrByRandom(matr);
  end.
Это сообщение посчитали полезным следующие участники:

Отправлено: 20:15, 17-01-2012 | #6