[vvp1990]

Надо найти ошибку в проге.

Я взял прогу у пацана которая 100% работает.
И изменил под свой вариант. (У меня двумерный массив, а у пацана одномерный)

Вообщем всё поменял как надо но прога выдает ошибку. Помогите разобраться



ВОТ ПРОГА ПАРНЯ (100% работает)
http://www.fayloobmennik.net/1437133
ВОТ ПРОГА МОЯ (выдает ошибку)
http://www.fayloobmennik.net/1437142

Задание парня

Создать программу нахождения минимального элемента одномерного массива.

Задание моё

Создать программу нахождения минимального элемента матрицы

[vvp1990]

Тема "Создание и использование модуля"

[DelphiM0ZG]

Вот поправил прогу, которая с двумерным массивом - другую даже не смотрел. Поправлял на Delphi 7.

[lmikle]

1. Код выкладывай в теле сообщения в тегах code.
2. Как так можно написать твое задание, что оно не работает?

Код:

var
  A : Array Of Array Of Integer;
  I, J : Integer;
  Amin : Integer;
begin
  // Устанавливаем размеры массива
  SetLength(A,10,10);

  // Инициализируем массив случайным образом
  For I := Low(A) To High(A) Do
   For J := Low(A[I[) To High(A[i]) Do
     A[I,J] := Random(1000);

  // Ищем min элемент
  Amin := A[0,0];
  For I := Low(A) To High(A) Do
   For J := Low(A[I[) To High(A[i]) Do
     If A[I,J] < Amin Then Amin := A[I,J];

  // Показываем результат
  showMessage('Amin = '  + IntTostr(Amin));
end;

Все.

[vvp1990]

Вау спасибо большое спасибо.
всё работает спасибо
Давайте я вам денег кину за помощь. Или на инет или на телефон брошу)