Подсчитать количество положительных компонентов последовательности xi

@Sara1995 · Регистрация: 03.10.2012

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

Помогите пожалуйста составить алгоритм и программу или что-то одно из двух. Благодарна за любую помощь.
Условие: Подсчитать количество положительных компонентов последовательности xi.

@Puporev · 11.09.2013, 08:08

Pascal

var x:real;
    n,i,k:integer;
begin
write('Ðàçìåð ïîñëåäîâàòåëüíîñòè n=');
readln(n);
writeln('Ââåäèòå ',n,' ÷èñåë');
k:=0;
for i:=1 to n do
 begin
  readln(x);
  if x>0 then k:=k+1
 end;
write('Êîëè÷åñòâî ïîëîæèòåëüíûõ=',k);
readln
end.

@Sara1995 · 14.09.2013, 20:14 **[ТС]**

Помогите ещё пожалуйста составить к программе словесно-формульный алгоритм с точными шагами, чтобы можно было рассчитать сложность.

@Sara1995 3 / 3 / 1 Регистрация: 03.10.2012 Сообщений: 66
		1
	Подсчитать количество положительных компонентов последовательности xi 11.09.2013, 07:31. Показов 990. Ответов 2 Метки нет (Все метки) Помогите пожалуйста составить алгоритм и программу или что-то одно из двух. Благодарна за любую помощь. Условие: Подсчитать количество положительных компонентов последовательности xi. 0

@Sara1995 3 / 3 / 1 Регистрация: 03.10.2012 Сообщений: 66
	14.09.2013, 20:14 [ТС]	3
	Помогите ещё пожалуйста составить к программе словесно-формульный алгоритм с точными шагами, чтобы можно было рассчитать сложность. 0

Подсчитать количество положительных компонентов последовательности xi

Решение