Буду очень благодарен моему спасителю =)помогите решить задачу на паскале. массив. условное средннее
Дан массив чисел Z=(z1,z2,...,zm). Вычислить среднее арифметическое положительных элементов массива. Буду очень благодарен моему спасителю =)
Буду очень благодарен моему спасителю =)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;
t:=0;
for i:=1 to m do
if z>=0 then begin
t:=t+z;
n:=n+1;
end;
t:=t/n;