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

С данным свойством

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

Пример 1

Найти максимальный элемент массива и его индексы.

Решение

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

Program Example_112;

Procedure Maximum(x: dmyarray;

Var max, maxi, maxj: Integer);

Var i, j: Integer;

Begin

max:=x[1,1]; maxi:=1; maxj:=1; {Начальные значения}

For i:=1 To n Do

For j:=1 To m Do If x[i,j]>max Then

Begin {Новые значения)

max: =x[i,j];

maxi:=i; maxj:=j;

End;

End;

Пример 2

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

Решение

Рассмотрим несколько вариантов решения этой задачи. Можно хранить количество отрицательных элемен­тов каждой строки в одномерном массиве соответству­ющей размерности.

Program Example_113;

Procedure Q1(x: dmyarray; Var у: omyarray);

Var i, j: Integer;

Begin

For i:=1 To n Do

Begin

y[i]:=0;

For j:=1 To m Do

If x[i,j]<0 Then Inc (y[i]);

End;

End;

Можно использовать счетчик, находить количество отрицательных элементов строки и сразу выводить най­денное значение на экран.

Program Example_114;

Procedure Q_2(x: dmyarray);

Var i, j, k: Integer;

Begin

For i:=1 To n Do

Begin

k:=0;

For j:=1 To m Do

If x[i,j]<0 Then Inc(k);

Writeln (i,'-', k);

{Вывод номера строки и количества

отрицательных элементов}

End;

End;