Question

Дан массив из семи элементов. Данные вводятся с клавиатуры. вывести на экран отрицательные элементы массива и их количество, затем с новой сироки все положительные элементы массива и их колличество.

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrInteger(7);
  var s:=a.Where(t->t<0);
  s.Print; Writeln(', элементов: ',s.Count);
  s:=a.Where(t->t>0);
  s.Print; Writeln(', элементов: ',s.Count)
end.

Пример
62 18 -15 0 14 -23 7 -1
-15 -23, элементов: 2
62 18 14 7, элементов: 4