uses crt;
const
n=6;
m=4;
type matrix =array [1..n , 1..m] of integer;
var
a:matrix;
i,j,min:integer;
begin
for i:=1 to n do
for j:=1 to m do begin
a[i,j]:=random(100); end;
min:=a[1,1];
For i:=1 to n do begin
For j:=1 to m do begin
If min> a[i,j] then
min:=a[i,j]; end; end;
textcolor(green);
for i:=1 to n do begin
for j:=1 to m do
write(a[i,j], ' ');
writeln;
end;
writeln; textcolor (red);
writeln('минимальный элемент: ',min);
end.
никак не могу понять как это сделать ..очень прошу помочь..