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

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

Таблица 1

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