Найти количество положительных элементов массива в Pascal

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

Описание переменных:

• N — количество элементов в массиве;
• arr — одномерный массив, содержащий N элементов;
• i — переменная-счетчик;
• count — счетчик для положительных элементов массива.

Алгоритм решения задачи:

Это простая задача. Необходимо перебрать все элементы массива в цикле (обычно используется for) и сравнить их с нулем (с помощью условного оператора if, вложенного в цикл). Если текущий элемент массива больше нуля, то следует увеличить на единицу счетчик положительных элементов, которому до цикла присваивается значение 0 (так как еще ни одного положительного элемента массива не найдено). После завершения цикла значением данного счетчика будет найденное количество положительных элементов массива.

В программе ниже в одном и том же цикле происходит заполнение массива случайными числами и последующая проверка каждого элемента на положительность. В программе можно было бы использовать два цикла: один — для заполнения массива, второй — для поиска количества положительных элементов. К сути данной задачи имеет отношение только второй цикл.

Программа на языке Паскаль:

const N = 10;

var
    arr: array[1..N] of integer;
    i: byte;
    count: byte;

begin
    randomize;

    count := 0;

    for i := 1 to N do begin
        arr[i] := random(100) - 50;
        write(arr[i], ' ');

        if arr[i] > 0 then
            count := count + 1;
    end;
    writeln;

    writeln(count);
end.

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

-36 -19 -23 18 -25 45 -32 14 -45 3
4