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

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

Решение

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

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;

Пример 4

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

Решение

Рассмотрим несколько способов решения этой задачи.

Способ 1 - количество элементов каждой строки хранить в одномерном массиве соответствующей размерности. Тогда можно описать такую процедуру:

Procedure Q_1(x: dmyarray; Var y: 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;

Способ 2 - использовать счётчик, находить количество элементов строки и выводить значение на экран. Тогда:

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;

Работа с несколькими массивами

Дата добавления: 2015-08-17