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
|
