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

N- количество элементов в массиве; arr - одномерный массив, содержащий n элементов; i - переменная-счетчик; count - счетчик для положительных элементов массива. пример выполнения программы, определяющей количество положительных элементов массива. -36 -19 -23 18 -25 45 -32 14 -45 3 4 программа на языке паскаль:     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.  

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

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

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