|
Поиск элементов массива по определенным условиям.
1. Существует ряд простейших алгоритмов, которые позволяют выполнять анализ данных, в частности элементов массива. Среди элементов необходимо выбирать некоторые по определенному признаку.
Пример 1. Найдем количество положительных элементов массива. Размер массива N.
Var a : array[1..100] of integer; i,k : integer;
Begin read(n); // вводим размер массива for i:=1 to n do // read(a[i]); // вводим значения элементов
k:=0; // начальное количество 0 for i:=1 to n do // if a[i]>0 then // проверяем условие положительности k:=k+1; // увеличиваем количество на 1
writeln(k); // вывод результата end.
Пример 2. Найдем максимальный элемент массива. Размер массива N.
Var a : array[1..100] of integer; i, max : integer;
Begin read(n); // вводим размер массива for i:=1 to n do // read(a[i]); // вводим значения элементов
max:=a[1]; // возможный максимальный первый элемент for i:=2 to n do // делаем перебор всех элементов if a[i]>max then // проверяем условие максимальности текущего max:=a[i]; // увеличиваем количество на 1
writeln(max); // вывод результата end.
Чтобы найти минимальный элемент, достаточно изменить знак в условии проверки.
Пример 3. Найдем количество элементов массива, равных числу B. Размер массива N.
Var a : array[1..100] of integer; i, b, k : integer;
Begin read(n); // вводим размер массива read(b); // вводим число b for i:=1 to n do // read(a[i]); // вводим значения элементов
k:=0; // в начале количество равно нулю for i:=1 to n do // делаем перебор всех элементов if a[i]=b then // проверяем условие равенства k:=k+1; // увеличиваем количество на 1
writeln(k); // вывод результата end.
ВАЖНО понять и запомнить части программы (я называю их базовыми конструкциями программы), уметь сделать нужные изменения для решения задачи.
Отмечу пример условий:
|