Необходимо просмотреть весь массив, и если просматриваемый элемент является четным, то вывести его номер. Опишем процедуру, которой передается данный массив и выводятся нужные номера.
Program Example_93;
Procedure Solve (m: myarray);
Var i: Integer;
Begin
For i:=1 To n Do
If m[i] Mod 2=0 Then Write(i:5);
End;
Нахождение количества элементов,
Обладающих заданным свойством
Пример
Найти количество положительных и отрицательных элементов в данном массиве.
Решение
Опишем процедуру, которая имеет три параметра − массив и два счетчика, первый − для положительных элементов, второй − для отрицательных, элементы, равные нулю, учитывать не будем.
Program Example_94;
Procedure Quantity(m: myarray;
Var k1, k2: Integer);
Var i: Integer;
Begin
k1:=0; k2:=0;
For i:=1 To n Do
If m[i]>0 Then Inc(k1)
Else If m[i]<0 Then Inc(k2);
End;
Смотрите программу Example_89. В разделе описания переменных Var дописать: pol, otr: Integer;. В основной программе записать обращение к процедуре Quantity(a,pol,otr).
Есть ли в данном массиве элементы с
Данным свойством, или найти первый
(последний) элемент, отвечающий
Заданным условиям
Для решения задач этого типа удобнее использовать циклы с условиями и составлять функции, результат которых имеет логический тип.
Пример 1
Есть ли отрицательный элемент в массиве?
