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

Рассмотрим фрагменты программ в таблице 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;