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

UptoLike

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

Рубрика:

m := random(10) + 1; {от 1 до 10}

{Генерация случайного массива}

for i := 1 to n do

for j := 1 to m do

a[i,j] := random(5) + 1; {Генерация по очереди

всех элементов массива}

{Поиск минимального элемента массива}

min := a[1,1]; {В начале поиска минимальным

считаем первый элемент}

imin := 1;

jmin := 1;

for i := 1 to n do

for j := 1 to m do

if a[i,j] < min then {Если какой-то элемент меньше ранее}

begin {найденного минимума, то этот}

min := a[i,j]; {элемент становится минимальным}

imin := i;

jmin := j;

end;

{Вывод массива в виде таблицы с цветным выделением минимального

элемента}

writeln;

for i := 1 to n do

begin

for j := 1 to m do

begin

if (i = imin) and (j = jmin)

then textcolor(LightBlue) {Минимальный элемент выводится

светло-голубым цветом}

else textcolor(LightGray); {Остальные элементы выводятся

серым цветом}

write(a[i,j]:4);

end;