Показать сообщение отдельно
  #2  
Старый 15.01.2010, 15:50
Аватар для Aristarh Dark
Aristarh Dark Aristarh Dark вне форума
Модератор
 
Регистрация: 07.10.2005
Адрес: Москва
Сообщения: 2,907
Версия Delphi: Delphi XE
Репутация: выкл
По умолчанию

Примерно так надо:
Код:
const
  m = 5;
  n = 4;
var
  data: array of array of real;
  i,j:integer;
begin
  SetLength(data,m);
  for i:=Low(data) to High(data) do
    begin
      SetLength(data[i],n);
      for j:=Low(data[i]) to High(data[i]) do
        data[i,j]:=Random(10);
    end;
end;
__________________
Некоторые программисты настолько ленивы, что сразу пишут рабочий код.

Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты.
Ответить с цитированием