СТОЛБЕЦ 1Рис. 7.2. Результат работы PG7_2 Задача 7.3 Дана матрица N х М, состоящая из натуральных чисел. Выбрать в строках самые левые наименьшие элементы и поставить их в первый столбец. Для решения этой задачи нужно сначала найти самый левый минимальный элемент в строке и запомнить его местоположение, а затем поменять его местами с элементом в первом столбце. PROGRAM PG7_3; 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 I:= 1 TO N DO BEGIN WRITELN('BBOДИTE ЧЕРЕЗ ПРОБЕЛ', M,' ЧИСЕЛ'); FOR J:= 1 TO M DO READ(A[I, J]) END; FOR I:= 1 TO N DO BEGIN MIN:= A[I, 1]; JM:= 1; FOR J:= 1 TO M DO IF MIN>A[I, J] THEN BEGIN JM:= J; MIN:= A[l, J] END; A[l, JM]:= A[l, 1]; A[l, 1]:= MIN END; FOR I:= 1 TO N DO BEGIN FOR J:= 1 TO M DO WRITE(A[I, J]: 4); WRITELN END; END. Для решения задачи: - формируем тело программы и описываем переменные; - вводим размеры массива А и значения его элементов; - просматриваем строки массива слева направо, ищем минимальное значение и запоминаем значения индексов; - для каждой строки меняем местами минимальный элемент и элемент в первом столбце; - выводим матрицу на экран. Переменные: А - двумерный массив; N, М - количество строк и столбцов массива; I, J - переменные цикла; JM - столбец минимального элемента для каждой строки; MIN - текущий минимум.
ВВЕДИТЕ КОЛИЧЕСТВО СТРОК N = 5 ВВЕДИТЕ КОЛИЧЕСТВО СТОЛБЦОВ М = 6
|
