Найти сумму положительных элементов последовательности

@mmmarsel · Регистрация: 20.03.2010

Author24 — интернет-сервис помощи студентам

Решите кто нить плиз!!!!!!
Дана последовательность с общим членом Аn = Sin(n+1)×Cos2n , где n задаётся вводом. Найти сумму положительных элементов последовательности.
Номера и значения элементов последовательности вывести в табличном виде.
Обработка последовательности.
Введите количество элементов n: 7
Номер Элемент
1 -0.378
2 -0.092
3 -0.727
4 0.140
5 0.234
6 0.554
7 0.135

Сумма равна 1.064

@Mиxaил · 23.04.2010, 23:42

Pascal

var i,n:integer;
sum,m:real;
begin
write('n = ');
readln(n);
sum:=0;
for i:=1 to n do
  begin
  m:=sin(i+1)*cos(2*i);
  writeln(m:4:3);
  if (m>0) then sum:=sum+m;
  end;
writeln('Сумма положительных элементов = ',sum:4:3);
readln;
end.

@mmmarsel 0 / 0 / 1 Регистрация: 20.03.2010 Сообщений: 53
		1
	Найти сумму положительных элементов последовательности 23.04.2010, 23:30. Показов 2040. Ответов 1 Метки нет (Все метки) Решите кто нить плиз!!!!!! Дана последовательность с общим членом Аn = Sin(n+1)×Cos2n , где n задаётся вводом. Найти сумму положительных элементов последовательности. Номера и значения элементов последовательности вывести в табличном виде. Обработка последовательности. Введите количество элементов n: 7 Номер Элемент 1 -0.378 2 -0.092 3 -0.727 4 0.140 5 0.234 6 0.554 7 0.135 Сумма равна 1.064 0

	23.04.2010, 23:42

Найти сумму положительных элементов последовательности

Решение