Обработка одномерного массива Паскаль

[Сергей11111]

Задать массив
Z={1,2; 1.5; 0;-1.3;-1.15; 0.2}
а)для всех элементов массива Z вычислить элементы массива х за формулою:
{sinzi /lnzi,если zi<0
xi=f(zi)= {lnzi, tckb zi >=0
б)определить среднее арифметическое положительные элементов массива х

[bumer7721]

Тебе что самому лень писать, или халявы захотелось

[Сергей11111]

я не знаю как это сделать вот и прошу помочь по человечески

[Stilet]

const Z:array[1..7] of double=(1,2, 1.5, 0,-1.3,-1.15, 0.2);
var i,cnt:integer;sa:double;
begin
 for i:=1 to 7 do begin
  if z[i]<0 then write(sin(z[i])/ln(z[i]):7:2) else write(f(z[i]):7:2);
  if z[i]>0 then begin inc(cnt); sa:=sa+z[i];end;
 end;
 write(sa/cnt:7:2);
end.

Ето если я понял задание.

[Mad_Cat]

вот так вроде надо)

const Z:array[1..7] of double=(1,2, 1.5, 0,-1.3,-1.15, 0.2);
var i,cnt:integer;sa:double;
x:array[1..7] of double;
begin
 for i:=1 to 7 do begin
if z[i]<0 then x[i]:=sin(z[i])/ln(z[i]) // Натурального Логарифма от числа <=0 не существует так то
else x[i]:=ln(z[i]);
write(x[i]:8:3);
if x[i]>0 then begin sa:=sa+x[i];inc(cnt);end;
end;
writeln;
write(sa/cnt);
end.