Даны целые числа, отличные от 0. признаком завершения ввода будет число 0. подсчитать, сколько было введено отрицательных трёхзначных чисел.

var  n, count, a: integer; begin  repeat    readln(a);     if(a < = -100) and (a > = -999) then inc(count);   until(a = 0);   writeln('было введено отрицательных трехзначных чисел: ', count); end.

// pascalabc.net 3.3, сборка 1555 от 21.10.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n=',50); a.println;   writeln('среднее арифметическое отрицательных чисел: ',           a.where(x-> x< 0).average);   writeln('сумма чисел, кратных четырем: ',           a.where(x-> x mod 4=0).sum);   writeln('произведение чисел на интервале [-10; 10]: ',           a.where(x-> x.between(-10,(biginteger(,y)-> x*y)) end. пример n= 90 2 -7 -9 23 49 3 -38 -3 -24 -50 -1 44 -33 -14 -39 42 -29 12 5 -27 35 -46 -23 36 26 18 -30 10 18 25 19 2 28 37 -21 4 40 42 10 23 5 -14 6 -10 35 11 -26 19 45 -36 38 44 29 17 -36 -2 -35 5 47 -19 -17 2 30 1 -18 48 -34 -19 -44 8 -49 -20 -48 32 18 -2 -1 38 -49 -35 -6 1 16 4 37 26 24 -40 23 32 среднее арифметическое отрицательных чисел: -25.1052631578947 сумма чисел, кратных четырем: 124 произведение чисел на интервале [-10; 10]: -10450944000000

1. электричество это поистине магическая сила, явление без которого мы бы в прямом и переносном смысле остались бы в темноте. ни лампы  в вечернее время, ни телевизора , компьютера, лифта, обогревателя, микроволновой печки…тут действительно можно перечислять до бесконечности.    ведь наше общество в высшей степени зависимо от электричества, которое питает так  горячо любимый  нами  образ жизни. 2.пенициллин действительно, каким гением должен быть человек, чтобы увидев кусочек плесени на хлебе подумать о том, что это может быть лекарством, которое спасет жизни миллионов.  и таким гением  был  александр флемминг.  именно ему мы обязаны существованием антибиотиков.  3. порох заслуга открытия пороха приписывается китайским  , жившим в 9 веке. с момента открытия, эту гремучую смесь использовали для охоты, войны, развлечений. 4. колесо было ли это научное открытие, случайная находка или же изобретение? мир возможно так никогда и не узнает.  археологические раскопки обнаружили прототип колеса, который датируется пятым тысячелетием до нашей эры. изобретение колеса стало катализатором развития науки в целом. а в частности усовершенствованием ремесел и механики, важнейшее значение это изобретение имело также в хозяйственной жизни людей. 5. пластик в 1969 году джон весли хайат открыл способ производства вещества, которое стало революцией в повседневной жизни людей.  пластик. сегодня большая часть предметов быта, а другими словами,  окружающей нас искусственной среды состоит из пластика. пластиковые стулья, одноразовые пакеты, упаковка,    техника, игрушки и многое, многое другое.  что примечательно, так это возможность вторичной переработки этого материала.