заполнение массива Delphi7

[artem66rus]

Написал программку для лабы по поиску макс и мин элемента массива на Delphi7.

Но массив вводится вручную. помогите сдлеать автоматический ввод масива с разными значениями

[VVkSoft]

Можно так

procedure FillDataInArray;
var
  I: Integer;
  j: Integer;
begin
  randomize;
  for I := 1 to Length(a) do
    for j := 1 to Length(a[I]) do
    begin
      A[I,J] := random(100);
    end;

  Edit1.text :=  IntToStr( a[1,1]);
  Edit2.text :=  IntToStr( a[1,2]);
  Edit3.text :=  IntToStr( a[1,3]);
  Edit4.text :=  IntToStr( a[2,1]);
  Edit5.text :=  IntToStr( a[2,2]);
  Edit6.text :=  IntToStr( a[2,3]);
  Edit7.text :=  IntToStr( a[3,1]);
  Edit8.text :=  IntToStr( a[3,2]);
  Edit9.text :=  IntToStr( a[3,3]);
end;

Вместо функции Length можно написать свой размер

[phomm]

Кросспост !
Читайте правила!