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

UptoLike

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

Рубрика:

s := s + a[i, j]; {Накопление суммы}

sa := s / (n * m); {Делим сумму на количество элементов –

получается среднее арифметическое}

…

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

Задача 12: Найти значение максимального элемента последнего

столбца массива.

Алгоритм поиска максимума следующий:

1. Максимальным элементом считаем первый элемент столбца:

max=A[1,X], где X – индекс последнего столбца.

2. Для всех элементов массива сравниваем имеющийся максимальный

элемент max с очередным элементом столбца A[i,X].

3. Если очередной элемент больше имеющегося максимального

элемента, то это и есть новый максимальный элемент max=A[i,X].

Фрагмент программы:

Var

max : integer; {Значение максимального элемента}

x : integer; {Индекс последнего столбца}

…

Begin

…

x := m; {Последний столбец имеет индекс m}

{1} max := a[1, x];

{2} for i := 1 to n do

{3} if a[i, x] > max then max := a[i, x];

…

Задача 13: Найти значение максимального элемента массива.

Фрагмент программы:

Var

max : integer; {Значение максимального элемента массива}

…