Вычислить сумму и количество элементов xi>0 массива X. X (30) Xi = (-1) i = (1+i) / корень кубический из i

Question

Информатика

Цвета

6 июля, 08:46

Вычислить сумму и количество элементов xi>0 массива X. X (30) Xi = (-1) i = (1+i) / корень кубический из i

+4

Ответы (1)

Знаете ответ на вопрос?

Гедеон · Answer 1

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.