Нахождение минимального значения элемента в массиве

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

Сегодня я напишу решение следующей задачи: Задан двухмерный массив вещественных чисел размерности 3х3. Найти номер строки и номер столбца, в которых находится наименьший элемент. Массив описать как типизированную константу.

Решение на C:

#include <stdio.h>
 
#define SIZE 3
 
int main()
{
    const int array[SIZE][SIZE] = {
        {2, 2, 3},
        {3, 2, 3},
        {6, 1, 5}
    };
 
    int i, j, min = array[0][0];
 
    for (i = 0; i < SIZE; i++) {
        for (j = 0; j < SIZE; j++) {
 
            if (min > array[i][j]) {
                min = array[i][j];
            }
 
        }
    }
 
    printf("min = %d\n", min);
    return 0;
}

Решение на Pascal:

const
    SIZE = 2;
    mas: array[0..SIZE, 0..SIZE] of integer = (
        (2, 2, 3),
        (3, 2, 3),
        (6, 1, 5)
    );
 
var
    i, j, min: integer;
 
begin
    min := mas[0][0];
 
    for i := 0 to SIZE do begin
        for j := 0 to SIZE do begin
            if (min > mas[i][j]) then
                min := mas[i][j];
        end;
    end;
 
    writeln('min = ', min);
end.
Перейти к верхней панели