Developing.ru • помогите решить задачу на паскале. массив. условное средннее

Страница 1 из 1

помогите решить задачу на паскале. массив. условное средннее

Добавлено: 26 фев 2009, 23:43

KaPaM6a

Дан массив чисел Z=(z1,z2,...,zm). Вычислить среднее арифметическое положительных элементов массива.

Буду очень благодарен моему спасителю =)

Re: помогите решить задачу на паскале. массив. условное средннее

Добавлено: 27 фев 2009, 17:00

PUAZN

n:=0;
t:=0;
for i:=1 to m do
if z>=0 then begin
t:=t+z;
n:=n+1;
end;
t:=t/n;