Прога с массивами

[Hacker19_90]

короче! суть проги в том, что она сначала высчитывает наименьшее значение каждой строки ,потом выбирает наибольшее!!!!!
вот код

program Lab05;
Uses Crt;
var
   matrix: array[1..3,1..4] of real;
   matrix2: array[1..3] of real;
   m, n, i: byte;
   max, min, t: real;
begin
     i := 1;
     Writeln ('!!!Заполняем массиВ!!!');
     Writeln ('!!!Вводите 3 строки по 4 значениЯ!!!');
     for m := 1 to 3 do
         begin for n := 1 to 4 do
                   Read (matrix[m,n]);
         end;
     for m := 1 to 3 do
         begin
              min := matrix[m,1];
              for n := 1 to 4 do
                   begin
                        if min < matrix[m,n] then
                           begin
                                matrix2[i] := min;
                                inc(i);
                           end
                        Else begin
                                  min := matrix[m,n];
                                  matrix2[i] := min;
                                  inc(i);
                             end;
                   end;
         end;
     t := matrix2[1];
     Writeln ('!!!Выводим массив меньших чисеЛ!!!');
     for i := 1 to 3 do
         write (matrix2[i]:2);
     for i := 2 to 3 do
         begin
              if t > matrix2[i] then
                 max := t
              Else
                  begin
                       t := matrix2[i];
                       max := t;
                  end;
         end;
     Writeln ('Maximum = ',max);
end.

Я заполняю массив! воожу
12 значений после которых прога стопорится
и вылетает такое сообщение
Процессор NTVDM обнаружил недопустимую инструкцию.
CS:0735 IP:00d9 OP:8d f3 03 b7 00 для завершения нажмите кнопку закрыть

[Serge_Bliznykov]

попробуйте вначале программы поставить директиву проверки диапазонов:
{$R+}

после этого Вы увидите ошибку RANGE CHECK Error
потому что алгоритм у Вас НИКУДА не годится ;-(
Вы погоняйте программу в отладке, увидите, что i у Вас постоянно наращивается и становится больше 3... (граница массива matrix2) после чего matrix2[i]:= начинает писать в область переменных, и наблюдается ПОЛНЫЙ кавардак ;-(

короче - алгоритм - в топку. Переделывайте!!!

[Hacker19_90]

да спасибо!!!я уже понял сёдня утром!!!!!
вот код рабочей проги которую я переделал!!!

program Lab05;
Uses Crt;
var
   matrix: array[1..3,1..4] of real;
   matrix2: array[1..3] of real;
   m, n, i: byte;
   max, min, t: real;
begin
     clrscr;
     i := 1;
     Writeln ('!!!Заполняем массиВ!!!');
     Writeln ('!!!Вводите 3 строки по 4 значениЯ!!!');
     for m := 1 to 3 do
         begin for n := 1 to 4 do
                   Read (matrix[m,n]);
         end;
     for i := 1 to 3 do
         begin
              for m := 1 to 3 do
                  begin
                       min := matrix[m,1];
                       for n := 2 to 4 do
                           begin
                                if min <= matrix[m,n] then
                                begin
                                     matrix2[i] := min;
                                end
                                Else begin
                                   matrix2[i] := matrix[m,n];
                                   min := matrix2[i] ;
                                  end;
                           end;
                  end;
         end;
     t := matrix2[1];
     for i := 2 to 3 do
         begin
              if t > matrix2[i] then
                 max := t
              Else
                  begin
                       t := matrix2[i];
                       max := t;
                  end;
         end;
     Writeln ('Максимальное значение из минимальных значений строки = ',max:2:0);
end.

[Роман Радер]

помоему слишком сложно исполняете задачу...

[AVer]

Роман Радер согласен. Есть похожая тема http://www.programmersforum.ru/showthread.php?t=27764 смотри и делай под свои нужды.