Код на Pascal ABC Дан набор из N отрезков различной длины. Сколькими можно выбрать из этих отрезков три, из которых можно составить (невырожденный) треугольник?
Входные данные
Сначала вводится количество отрезков, затем длины этих отрезков (еще N чисел).
Выходные данные
Программа должна вывести одно число - искомое количество
Количество отрезков - не менее 3 и не более 20. Длина каждого отрезка - натуральное число, не превосходящее 1000. Все отрезки имеют разную длину.

Один из видов принтеров. Обладает малой скоростью печати по сравнению с лазерным принтером, но отличается высоким качеством печати полутоновых изображений, а также имеет более высокую скорость по сравнению с матричным принтером.Принцип действия струйных принтеров похож на матричные принтеры тем, что изображение на носителе формируется из точек. Но вместо головок с иголками в струйных принтерах используется матрица, печатающая жидкими красителями. Картриджи с красителями бывают со встроенной печатающей головкой — в основном такой подход используется компаниями Hewlett-Packard, Lexmark. Существуют картриджи, в которых печатающая матрица является деталью принтера, а сменные картриджи содержат только краситель. При длительном простое принтера (неделя и больше) происходит высыхание остатков красителя на соплах печатающей головки. Принтер умеет сам автоматически чистить печатающую головку. Но также возможно провести принудительную очистку сопел из соответствующего раздела настройки драйвера принтера. При прочистке сопел печатающей головки происходит интенсивный расход красителя. Особенно критично засорение сопел печатающей матрицы принтеров Epson, Canon. Если штатными средствами принтера не удалось очистить сопла печатающей головки, то дальнейшая очистка и/или замена печатающей головки проводится в ремонтных мастерских. Замена картриджа, содержащего печатающую матрицу, новых проблем не вызывает.

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.