fork download
  1. program findmin;
  2.  
  3. var
  4. arr: array [0..3, 0..3] of integer = (
  5. ( 4, 3, 2, 1 ),
  6. ( 3, 2, 1, 4 ),
  7. ( 2, 2, 3, 3 ),
  8. ( 4, 2, 1, 3 )
  9. );
  10. i, j: integer; // enumerators
  11. min: integer; // the minimum value
  12. begin
  13. // assume first element is minimal
  14. min := arr[0, 0];
  15. // for every row
  16. for i := 0 to length(arr) - 1 do begin
  17. // for every column
  18. for j := 0 to length(arr[i]) - 1 do begin
  19. // find mimimal element and it's position
  20. if arr[i, j] < min then begin
  21. min := arr[i, j];
  22. end;
  23. end;
  24. end;
  25.  
  26. write('min is ');
  27. writeln(min);
  28.  
  29. writeln('It was found in: ');
  30. for i := 0 to length(arr) - 1 do begin
  31. for j := 0 to length(arr[i]) - 1 do begin
  32. if arr[i, j] = min then begin
  33. write('row: ');
  34. write(i);
  35. write(' col: ');
  36. writeln(j);
  37. end;
  38. end;
  39. end;
  40. end.
Success #stdin #stdout 0s 276KB
stdin
Standard input is empty
stdout
min is 1
It was found in: 
row: 0 col: 3
row: 1 col: 2
row: 3 col: 2