Найти количество положительных элементов массива | Язык Паскаль
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

Пример решения похожей задачи в сообществе VK: Нахождение количества отрицательных элементов массива из 10 элементов, принадлежащих диапазону [-20; 20).