Задан одномерный массив из n чисел. сосчитать количество элементов массива: а) положительных; б) отрицательных; в) нулевых.

//pascalabc.net 3.3,сборка 1611 от 06.01.2018 //внимание! если программа не работает, обновите версию! begin   var n: =readinteger('n=');   var mas: =arrrandom(n,-20,20); mas.println;   writeln('положительных элементов: ',mas.count(t-> t> 0)); writeln('отрицательных элементов: ',mas.count(t-> t< 0)); writeln('нулевых элементов: ',mas.count(t-> t=0)); end.

Const n = 10; var mas: array [1..n] of integer; i,x,y,z: integer; begin for i: =1 to 10 do read(mas[i]); x: =0; y: =0; z: =0; for i: =1 to 10 do begin if mas[i]> 0 then x: =x+1 else if mas[i]< 0 then y: =y+1 else z: =z+1 end; writeln('положительных элементов: ',x); writeln('отрицательных элементов: ',y); writeln('нулевых элементов: ',z); end.

 

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