ROGRAM PG7_2;CONST T = 100;S = 100; VAR A: ARRAY[1..T, 1..S] OF INTEGER; N, M, JM, I, J, MIN: INTEGER; BEGIN WRITE('BBEДИTE КОЛИЧЕСТВО СТРОК N = '); READLN(N); WRITE('BBEДИTE КОЛИЧЕСТВО СТОЛБЦОВ М = '); READLN(M); FOR 1:= 1 TO N DO BEGIN WRITELN('BBOДИTE ', М,' ЧИСЕЛ'); FOR J:= 1 ТО М DO READ(A[I, J]) END; FOR I:= 1 TO N DO BEGIN MIN:= A[l, M]; JM:= M; FOR J:= M DOWNTO 1 DO IF MIN>A[I, J] THEN BEGIN JM:= J; MIN:= A[l, J] END; WRITELN('B СТРОКЕ I =', I, 'САМЫЙ ПРАВЫЙ MIN =', MIN); WRITELN('CТОЛБЕЦ', JM) END; END. Для решения задачи: - формируем тело программы и описываем переменные; - вводим размеры массива А и значения его элементов; - просматриваем строки массива справа налево, ищем минимальное значение и запоминаем значение индексов; - для каждой строки выводим значение и местоположение самого правого минимального элемента. Переменные: А - двумерный массив; N, М - количество строк и столбцов массива; I, J - переменные цикла; JM - столбец минимального элемента; MIN - текущий минимум. ВВЕДИТЕ КОЛИЧЕСТВО СТРОК N = 5 ВВЕДИТЕ КОЛИЧЕСТВО СТОЛБЦОВ М = 6 ВВОДИТЕ ЧЕРЕЗ ПРОБЕЛ 6 ЧИСЕЛ 2 2 0 -17 25 -17 ВВОДИТЕ ЧЕРЕЗ ПРОБЕЛ 6 ЧИСЕЛ 3 4 10 -17 0 0 ВВОДИТЕ ЧЕРЕЗ ПРОБЕЛ 6 ЧИСЕЛ 5 4 10 -17 20 45 ВВОДИТЕ ЧЕРЕЗ ПРОБЕЛ 6 ЧИСЕЛ 14 25 -16 6 7 8 ВВОДИТЕ ЧЕРЕЗ ПРОБЕЛ 6 ЧИСЕЛ 1 2 3 4 5 6 В СТРОКЕ I = 1 САМЫЙ ПРАВЫЙ MIN = -17 СТОЛБЕЦ 6 В СТРОКЕ I = 2 САМЫЙ ПРАВЫЙ MIN = -17 СТОЛБЕЦ 4 В СТРОКЕ I = 3 САМЫЙ ПРАВЫЙ MIN = -17 СТОЛБЕЦ 4 В СТРОКЕ I = 4 САМЫЙ ПРАВЫЙ MIN = -16 СТОЛБЕЦ 3 В СТРОКЕ I = 5 САМЫЙ ПРАВЫЙ MIN = 1
|
