Подсчитать количество выполнений каждого шага алгоритма

[Sandra 2000]

Подсчитать количество выполнений каждого шага алгоритма

Дано условие: Подсчитать количество положительных компонентов последовательности хi.
Помогите, пожалуйста, составить правильный или хотя-бы какой-нибудь приблизительный словестно-формульный алгоритм для данного условия, так как сама я не сильна в алгоритмах. И подсчитать количество выполнений каждого шага алгоритма, определить сложность. Буду признательна любой помощи. :bsod:

Программа есть.

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.

 

[Николай_С]

А языками владеете?
В первых трех строках вводятся исходные данные - размер и содержание одномерного массива.
В четвертой - обнуляем счетчик К.
Далее идет цикл, в котором перебираем все значения массива и как только срабатывает условие (оператор IF), увеличиваем счетчик на единицу.
Предпоследней строчкой выводим результат.
Последней - ждем пока препод на него налюбуется.
Как-то так...

 

[Vladimir_S]

А языками владеете?

Вообще-то Sandra 2000 - прекрасный программист, и сейчас, по-моему, просто придуривает малость.

 

[Николай_С]

Значит, Sandra 2000 просто любит "прикидываться ветошью".