помогите организовать счетчик на паскале

[Euforia_PZAS09_1]

желательно теорию.там ссылку, или книгу, в которой это есть посоветуйте. что-то нигде не могу найти. в поисковике в обще ни одного совпадения((((((((((((((((((((((((( ((((((((

[k1r1ch]

Как понять счетчик? Типо секундомер? Чтоб каждую секунду +1? Или как?

[Euforia_PZAS09_1]

нет. ну например мне нужно подсчитать количество отрицательных элементов.

[Манжосов Денис :)]

В данном случае счётчиком является целочисленная переменная.
К примеру:

var
i,k: integer;
begin
  for i := 100 to 900 do
   if i mod 5 = 0 then Inc(k);
end.

Здесь k и будет счётчиком.

[Euforia_PZAS09_1]

оо.хоть где-то нормальный человек нашелся.спасибо.всё ясно, а то как напишут...слов не хватает. благодарю!
а почему именно MOD?

[Манжосов Денис :)]

mod - остаток от деления. Если делится без остатка на два, значит выполняется действие(увеличивается счётчик)

[Serge_Bliznykov]

Если делится без остатка на два,

вообще то в примере, делится на 5..
тщательнее надо, тщательнее...

Euforia_PZAS09_1, это пример, как посчитать, сколько чисел в диапазоне от 100 до 900 делятся на пять (кратных пяти)
в вашем случае будет что-то типа такого:

  if a[i]<0 then inc(CountOfNegativeNumbers);

и ещё, по всем правилам написания программ, перед использованием, любая переменная должна быть иницилизирована.
в данном примере перед циклом (обычно в начале программы) нужно переменную присвоить нулю:

CountOfNegativeNumbers := 0;

[Манжосов Денис :)]

А зачем здесь инициализировать эту переменную? Здесь ей итак начальное значение задаётся 100. Ну, только если соблюдать правила...

[ОДИНОЧЕСТВО В СЕТИ]

по моему господа программисты вы про разные переменные говорите
Serge про k
Денис про i
так что

тщательнее надо, тщательнее...

[alex_fcsm]

Сообщение от Манжосов Денис :)

А зачем здесь инициализировать эту переменную?

var
i,k: integer;
begin
 k:=0;
  for i := 100 to 900 do
   if i mod 5 = 0 then Inc(k);
end.