Обработка массивов. Власенко О.Ф - 15 стр.

UptoLike

{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. Количество нужных элементов k=0.
2. Проходим по всем элементам массива,
3. И если очередной элемент массива равен 10,
4. Тогда увеличиваем k (количество элементов равных 10) на 1.
Фрагмент программы:
Var {дополнительные переменные}
k:integer; {количество элементов, равных 10}
Begin
...
{1} k:=0;
{2} for i:=1 to n do
{3} if A[i]=10
{4} then k:=k+1;