Фрагменты вычисления характеристик двумерного массива


Рассмотрим фрагменты программ в таблице 3.

Таблица 3

Характеристика Для всех элементов Для части элементов
1. Сумма s s:=0; for i:=1 to m do for j:=1 to n do s:=s+A[i,j]; s:=0; for i:=1 to m do for j:=1 to n do if A[i,j]>z then s:=s+A[i,j];
2. Количество k k:=m*n; k:=0; for i:=1 to m do for j:=1 to n do if A[i,j]>z then k:=k+1;
3. Произведение p p:=1; for i:=1 to m do for j:=1 to n do p:=p*A[i,j]; p:=1; for i:=1 to m do for j:=1 to n do if A[i,j]>z then p:=p*A[i,j];
4. Максимальное значение max max:=A[1,1]; for i:=1 to m do for j:=1 to n do if A[i,j]>max then max:=A[i,j]; max:=-1E10; for i:=1 to m do for j:=1 to n do if (A[i,j]>max) and (A[i,j]>z) then max:=A[i,j];
5. Минимальное значение min min:=A[1,1]; for i:=1 to m do for j:=1 to n do if A[i,j]<min then min:=A[i,j]; min:=1E10; for i:=1 to m do for j:=1 to n do if (A[i,j]<min) and (A[i,j]>z) then min:=A[i,j];
6. Среднее значение sr s:=0; for i:=1 to m do for j:=1 to n do s:=s+A[i,j]; sr:=s/(m*n); s:=0; k:=0; for i:=1 to m do for j:=1 to n do if A[i,j]>z then begin s:=s+A[i,j]; k:=k+1; end; sr:=s/k;