Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

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







Дата добавления: 2015-09-07; просмотров: 367. Нарушение авторских прав; Мы поможем в написании вашей работы!




Кардиналистский и ординалистский подходы Кардиналистский (количественный подход) к анализу полезности основан на представлении о возможности измерения различных благ в условных единицах полезности...


Обзор компонентов Multisim Компоненты – это основа любой схемы, это все элементы, из которых она состоит. Multisim оперирует с двумя категориями...


Композиция из абстрактных геометрических фигур Данная композиция состоит из линий, штриховки, абстрактных геометрических форм...


Важнейшие способы обработки и анализа рядов динамики Не во всех случаях эмпирические данные рядов динамики позволяют определить тенденцию изменения явления во времени...

Основные симптомы при заболеваниях органов кровообращения При болезнях органов кровообращения больные могут предъявлять различные жалобы: боли в области сердца и за грудиной, одышка, сердцебиение, перебои в сердце, удушье, отеки, цианоз головная боль, увеличение печени, слабость...

Вопрос 1. Коллективные средства защиты: вентиляция, освещение, защита от шума и вибрации Коллективные средства защиты: вентиляция, освещение, защита от шума и вибрации К коллективным средствам защиты относятся: вентиляция, отопление, освещение, защита от шума и вибрации...

Задержки и неисправности пистолета Макарова 1.Что может произойти при стрельбе из пистолета, если загрязнятся пазы на рамке...

Ваготомия. Дренирующие операции Ваготомия – денервация зон желудка, секретирующих соляную кислоту, путем пересечения блуждающих нервов или их ветвей...

Билиодигестивные анастомозы Показания для наложения билиодигестивных анастомозов: 1. нарушения проходимости терминального отдела холедоха при доброкачественной патологии (стенозы и стриктуры холедоха) 2. опухоли большого дуоденального сосочка...

Сосудистый шов (ручной Карреля, механический шов). Операции при ранениях крупных сосудов 1912 г., Каррель – впервые предложил методику сосудистого шва. Сосудистый шов применяется для восстановления магистрального кровотока при лечении...

Studopedia.info - Студопедия - 2014-2025 год . (0.012 сек.) русская версия | украинская версия