Минимальный элемент массива

[Necker]

Как для матрицы сделать вывод минимального значения? За ранее спасибо.

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;
const
M=19;
Procedure PrintMat;
var a:array[1..M,1..M] of integer;
b:array[1..M] of integer;
i,j,n,min:integer;
begin
Randomize;
Write('n=');
Readln(n);
for i:=1 to n do
begin {}
for j:=1 to n do
begin
a[i,j]:=random(M);
Write(a[i,j]:4);
end;

writeln;
end;
end;
Begin
PrintMat;
Readln;
End.

[p51x]

Как и для обычного массива. Пройтись по всем элементам и сравнить.

[Necker]

Можешь объяснить как это кодом выразить? в моем случае

[p51x]

Опускаете глаза ниже. Там есть список похожих тем. Открываете минимальный элемент массива и получаете готовое. Если уж искать лень...

[digitalis]

   amin := a[1,1] ;
   for i := 1 to m do
     for j := 1 to n do
        if a[i,j] < amin then amin := a[i,j] ;

Я в древности так делал.
Ну это в общем виде, у тебя почему-то матрица квадратная [1..M,1..M] , но это без разницы.

Стесняюсь спросить: ТС, а ты хоть один оператор Паскаля/Дельфи знаешь ?
А почему у моего ответа появился такой печальный смайлик ? Я его не ставил.