begin ArrRandom(ReadInteger('n='), -50, 50).Println.Where(t -> t > 0).Println end. Эта одна строчка кода на языке PasacalABC.NET, за которой спрятана полноценная программа. Запросить количество элементов в массиве, создать массив указанного размера и заполнить его случайными значениями, вывести элементы массива, затем выбрать среди них только положительные и снова вывести. Одна строчка! А какого размера будет блок-схема?