Дан массив из семи элементов. данные вводятся с клавиатуры. вывести на экран отрицательные элементы массива и их количество, затем с новой сироки все положительные элементы массива и их колличество.
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.
Внимание! Если программа не работает, обновите версию!
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