Основы программирования на языке Turbo Pascal. Беляева И.В. - 70 стр.

UptoLike

Составители:

Рубрика:

Begin

…

max := a[1, 1];

for i := 1 to n do

for j := 1 to m do

if a[i, j] > max then max := a[i, j];

…

Задача 14: Вывести массив, выделив цветом минимальный элемент.

Приведем полный текст программы – решение этой задачи:

{

Сгенерировать двухмерный массив и вывести его на экран в виде таблицы

с выделением цветом минимального элемента.

Замечание: если минимальных элементов несколько, то считать

минимальным первый из найденных.

}

uses crt;

const

MAXN = 10; {Максимально возможное количество строк в массиве}

MAXM = 10; {Максимально возможное количество столбцов}

var

a : array [1 .. MAXN, 1 .. MAXM] of integer; {Массив}

n, m : integer; {Количество строк и столбцов в массиве}

i, j : integer; {Индексы: i – счетчик строк,

j – счетчик элементов в строке}

min : integer; {Минимальный элемент массива}

imin : integer; {Индекс строки минимального элемента}

jmin : integer; {Индекс столбца минимального элемента}

begin

{Запуск генератора случайных чисел}

randomize;

{Генерация значений n и m}

n := random(10) + 1; {Генерируется значение в интервале}