Дан массив вывести на экран сначала неотрицательные элементы массива потом отрицательные.
решить в PascalABC
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
var n:=ReadInteger(Количество элементов в массиве: );
var a:=ArrRandom(n,-10,10).Println(,);
Write(Неотрицательные элементы: );
a.Where(x->x>=0).PrintLn(,);
Write(Отрицательные элементы: );
a.Where(x->x<0).PrintLn(,);
end.
Тестовое решение:
Количество элементов в массиве: 15
0,2,-2,-9,6,4,7,2,5,-3,3,-5,0,9,-6
Неотрицательные элементы: 0,2,6,4,7,2,5,3,0,9
Отрицательные элементы: -2,-9,-3,-5,-6
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
