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

UptoLike

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

Рубрика:

…

{1} max := A[1];

{2} for I := 2 to n do

{3} if A[i] > max then max := A[i];

…

Задача 7: Найти min и max значения элементов массива.

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

Var

max,min:integer; {Значение максимального и минимального

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

…

Begin

…

max := A[1];

min := A[1];

for i := 2 to n do

if A[i] > max then max := A[i]

else if A[i] < min then min := A[i];

…

Подсчет количества элементов, удовлетворяющих заданному условию

Задача 8: Подсчитать, сколько раз в массиве встречается элемент,

равный 10.

Задача решается по следующему алгоритму:

1. Количество нужных элементов К=0.

2. Проходим по всем элементам массива.

3. Если очередной элемент массива равен 10,

4. Тогда увеличиваем К (количество элементов равных 10) на 1.

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

Var

k:integer; {Количество элементов, равных 10}