Есть ли в данном массиве элементы с данным свойством?

Для решения таких задач удобнее использовать циклы с условиями и составлять функции, результат которых имеет логический тип.

Задача. Есть ли отрицательный элемент в массиве?

Начинаем с первого элемента (i=1). пока не просмотрен последний элемент (i<=n) и не найден отрицательный (m[i]>=0), будем переходить к следующему (Inc(i)). Таким образом, мы закончим просмотр массива в одном из двух случаев: первый – просмотрели все элементы и не нашли отрицательный, тогда i>n, второй – нашли нужный, при этом i<=n. Опишем функцию, значение которой истина (True), если такой элемент есть, и ложь (False), если его нет.

Function Control (m : MyArray; n:integer) : Boolean;

Var

i : integer;

Begin

i := 1;

while (i<=n) and (m[i]>0) do

Inc(i);

Control := (i<=n);

End;

Задание. Выберите с учителем задачи для самостоятельного решения.

1. Дан одномерный массив. Найдите разность наибольшего и наименьшего чисел в этом массиве.

2. Даны два одномерных массива А и В. Подсчитайте количество тех i, для которых:

а) А[i] < B[i]

б) A[i] = B[i];

в) A[i] > B[i]

3. Составьте программу определения количества элементов массива, больших среднего арифметического всех его элементов.

4. Дан одномерный массив. Подсчитайте, сколько раз встречается в этой таблице максимальное по величине число.

5. Дан одномерный целочисленный массив. Составьте программу определения значения наибольшего элемента этого массива.

6. Дан одномерный целочисленный массив. Составьте программу определения индекса(-ов) минимального элемента массива.

7. Составьте программу, проверяющую упорядочены ли элементы одномерного массива по возрастанию.

8. Дан одномерный массив чисел. Определите сумму его элементов.

9. Дан одномерный массив чисел. Измените знаки всех его элементов на противоположные.

10. Дан одномерный массив чисел. Подсчитайте, сколько раз в нем встречается число 1.

11. Дан одномерный массив чисел. Подсчитать в нем количество элементов равных нулю, отрицательных элементов и положительных элементов.

12. В массиве А (m,n) найдите количество всех чисел, по модулю меньших заданного Т.