СТОЛБЕЦ 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