Занятие 2. Доступ к элементам массива

Рассмотрите предложенные ниже фрагменты программ для решения некоторых типичных задач.

Изменение значения некоторых элементов

Задача. Заменить отрицательные элементы на противоположные по знаку.

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

Procedure Zamena (Var m: MyArray; n:integer);

Var

i: integer;

Begin

for i:= 1 to n do

if m[i] < 0

then

m[i]:= -1*m[i];

End;

Нахождение номеров элементов с заданным свойством

Задача. Найти и вывести на экран номера четных элементов.

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

Procedure PoiskChet(m: MyArray; n:integer);

Var

i: integer;

Begin

for i:= 1 to n do

if m[i] mod 2 =0

then

Write(i:5);

End;

Нахождение количества элементов с заданным свойством

Задача. Найти количество положительных и отрицательных элементов в данном массиве.

Опишем процедуру, которой будем отправлять три параметра – массив и два счетчика, один для элементов, больших нуля, а второй – для отрицательных элементов.

Procedure OtrPol(m: MyArray;; n:integer; 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;

Не нашли, что искали? Воспользуйтесь поиском: