Вычислить сумму и количество элементов xi больше 0 массива X. X(30) Xi=(-1)i=(1+i)/корень кубический из i
Вычислить сумму и количество элементов xi>0 массива X. X(30) Xi=(-1)i=(1+i)/корень кубический из i
Гость
Ответ(ы) на вопрос:
Гостьprogram sum;
var
x: array[1..30] of real;
i, k: integer;
s:real;
begin
k:=0;
s:=0;
for i:=1 to 30 do
begin
x[i]:=(1+i)/(Exp(Ln(i) / 3))
if x[i]>0
then
begin
s:=s+x[i];
k:=k+1;
end;
end;
writeln('summa=',s);
writeln('kolvo elementov=', k);
readkey;
end.
Не нашли ответ?
Похожие вопросы