// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-100,100); a.Println;
a:=a.Where(x->x>0).Concat(a.Where(x->x<=0)).ToArray;
a.Println;
Writeln('Количество положительных элементов: ',
a.Where(x->x>0).Count)
end.
<u><em>Тестовое решение:</em></u>
n= 15
-29 56 -40 -23 -26 -5 -69 37 -35 74 72 -63 -69 1 -93
56 37 74 72 1 -29 -40 -23 -26 -5 -69 -35 -63 -69 -93
Количество положительных элементов: 5
1)Хз 2)Информатика 3)123456 4)любая фотка 5)любая песня(аудио файлы) 6)гладкий , жесткий 7)соленый,сладкий 8)вонючий,приятный,ароматный
1,2,3,4,5,6,7
Всегда пожалуйста.
IVAN.DOC
КУКУ.BMP
A.B.TXT
LIN?.EXE нельзя ибо ? недопустимый символ.
TREE*.BMP опять же недопустимый символ
Поле чудес.EXE хз почему, но вроде как нельзя EXE русскими буквами называть при компиляции.