Вычислить сумму и количество элементов xi>0 массива X. X(30) Xi=(-1)i=(1+i)/корень кубический из i
Ответы на вопрос
Ответил NoObkO0908
0
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.
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.
Новые вопросы
Математика,
2 года назад
Литература,
2 года назад
Математика,
8 лет назад
Математика,
8 лет назад
Математика,
9 лет назад
Литература,
9 лет назад