program findmin;
var
arr: array [0..3, 0..3] of integer = (
( 4, 3, 2, 1 ),
( 3, 2, 1, 4 ),
( 2, 2, 3, 3 ),
( 4, 2, 1, 3 )
);
i, j: integer; // enumerators
min: integer; // the minimum value
begin
// assume first element is minimal
min := arr[0, 0];
// for every row
for i := 0 to length(arr) - 1 do begin
// for every column
for j := 0 to length(arr[i]) - 1 do begin
// find mimimal element and it's position
if arr[i, j] < min then begin
min := arr[i, j];
end;
end;
end;
write('min is ');
writeln(min);
writeln('It was found in: ');
for i := 0 to length(arr) - 1 do begin
for j := 0 to length(arr[i]) - 1 do begin
if arr[i, j] = min then begin
write('row: ');
write(i);
write(' col: ');
writeln(j);
end;
end;
end;
end.
cHJvZ3JhbSBmaW5kbWluOwoKdmFyCiAgICBhcnI6IGFycmF5IFswLi4zLCAwLi4zXSBvZiBpbnRlZ2VyID0gKAogICAgICAgICggNCwgMywgMiwgMSApLAogICAgICAgICggMywgMiwgMSwgNCApLAogICAgICAgICggMiwgMiwgMywgMyApLAogICAgICAgICggNCwgMiwgMSwgMyApCiAgICApOwogICAgaSwgajogaW50ZWdlcjsgLy8gZW51bWVyYXRvcnMKICAgIG1pbjogaW50ZWdlcjsgLy8gdGhlIG1pbmltdW0gdmFsdWUKYmVnaW4KICAgIC8vIGFzc3VtZSBmaXJzdCBlbGVtZW50IGlzIG1pbmltYWwKICAgIG1pbiA6PSBhcnJbMCwgMF07CiAgICAvLyBmb3IgZXZlcnkgcm93CiAgICBmb3IgaSA6PSAwIHRvIGxlbmd0aChhcnIpIC0gMSBkbyBiZWdpbgogICAgICAgIC8vIGZvciBldmVyeSBjb2x1bW4KICAgICAgICBmb3IgaiA6PSAwIHRvIGxlbmd0aChhcnJbaV0pIC0gMSBkbyBiZWdpbgogICAgICAgICAgICAvLyBmaW5kIG1pbWltYWwgZWxlbWVudCBhbmQgaXQncyBwb3NpdGlvbgogICAgICAgICAgICBpZiBhcnJbaSwgal0gPCBtaW4gdGhlbiBiZWdpbgogICAgICAgICAgICAgICAgbWluIDo9IGFycltpLCBqXTsKICAgICAgICAgICAgZW5kOwogICAgICAgIGVuZDsKICAgIGVuZDsKCiAgICB3cml0ZSgnbWluIGlzICcpOwogICAgd3JpdGVsbihtaW4pOwoKICAgIHdyaXRlbG4oJ0l0IHdhcyBmb3VuZCBpbjogJyk7CiAgICBmb3IgaSA6PSAwIHRvIGxlbmd0aChhcnIpIC0gMSBkbyBiZWdpbgogICAgICAgIGZvciBqIDo9IDAgdG8gbGVuZ3RoKGFycltpXSkgLSAxIGRvIGJlZ2luCiAgICAgICAgICAgIGlmIGFycltpLCBqXSA9IG1pbiB0aGVuIGJlZ2luCiAgICAgICAgICAgICAgICB3cml0ZSgncm93OiAnKTsKICAgICAgICAgICAgICAgIHdyaXRlKGkpOwogICAgICAgICAgICAgICAgd3JpdGUoJyBjb2w6ICcpOwogICAgICAgICAgICAgICAgd3JpdGVsbihqKTsKICAgICAgICAgICAgZW5kOwogICAgICAgIGVuZDsKICAgIGVuZDsKZW5kLg==