PROGRAM PG7_1;

CONST T = 100;S = 100;

VAR A: ARRAY[1..T, 1..S] OF INTEGER;

N, M, IM, JM, I, J, MIN, К: INTEGER;

BEGIN

WRITE('BBEДИTE КОЛИЧЕСТВО СТРОК N = ');

READLN(N);

WRITE('BBEДИTE КОЛИЧЕСТВО СТОЛБЦОВ М = ');

READLN(M);

FOR I:= 1 ТО N DO

BEGIN

WRITELN('BBOДИTE ЧЕРЕЗ ПРОБЕЛ ', M,' ЧИСЕЛ');

FOR J:= 1 ТО М DO

READ(A[I, J])

END;

MIN:= A[1, 1];

IM:= 1;JM:= 1;K:= 0;

FOR I:= 1 TO N DO

FOR J:= 1 TO M DO

IF MIN>A[I, J] THEN

BEGIN

К:= 1;IM:= I;JM:= J;

MIN:= A[l, J]

END

ELSE

IF MIN = A[l, J] THEN К:= K+1;

IF К = 1 THEN

BEGIN

WRITELN('B МАТРИЦЕ ОДИН МИНИМАЛЬНЫЙ ЭЛЕМЕНТ MIN =', MIN);

WRITELN('B ', IM, 'СТРОКЕ, В ', JM, 'СТОЛБЦЕ')

END

ELSE

BEGIN

WRITELN('B МАТРИЦЕ ', К, 'МИНИМАЛЬНЫХ ЭЛЕМЕНТОВ MIN = ', MIN);

FOR I:= IM TO N DO

FOR J:= 1 TO M DO

IF MIN = A[l, J] THEN WRITELN('B СТРОКЕ ', I,'В СТОЛБЦЕ', J)

END

END.

Для решения задачи:

- формируем тело программы и описываем переменные;

- вводим размеры массива А и значения его элементов;

- просматриваем элементы массива, ищем минимальное зна­чение и запоминаем значение индексов;

- считаем количество минимальных элементов;

- в зависимости от К либо выводим информацию о единст­венном минимальном элементе, либо организуем повторный просмотр массива А для вывода информации о всех мини­мальных элементах.

Переменные:

А - двумерный массив;

N, М - количество строк и столбцов массива;

I, J - переменные цикла;

К - количество минимальных элементов;

IM, JM - строка и столбец минимального элемента;

MIN - текущий минимум.

ВВЕДИТЕ КОЛИЧЕСТВО СТРОК N = 5

ВВЕДИТЕ КОЛИЧЕСТВО СТОЛБЦОВ М = 6