Всреде программирования создайте массив a из десяти целых чисел, принадлежащих полуинтервалу [-50,50).выведите полученный массив на экран. подсчитайте сумму положительных и количество отрицательных элементов массива.

ответ:

pascalabc.net

begin

  var a: = arrrandom(10, -50, 49).println;

  a.where(x -> x > 0).sum.println;

  a.where(x -> x < 0).count.println;

end.

объяснение:

в конце xix века герман холлерит в америке изобрел счетно-перфорационные машины. он основал фирму по производству этих машин, которая затем была преобразована в фирму ibm.

var a,b: string; begin                            cls;   read(a);     b: =a;           write('b')end.