Заполнить массив случайными числами в интервале [-30,35] и отобрать в массив В все положительные числа, а в массив С – все отрицательные числа. В массиве А – 10 чисел. Пример: Массив А: -25 13 15 16 35 -7 21 -22 -5 3 Массив B: 13 15 16 35 21 3 Массив С: -25 -7 -22 -5
Ответы на вопрос
Ответил Giammy
0
//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)
begin
var A:=ReadArrInteger(10);
var b:=a.Where(t->t>0).ToArray; b.Println;
var c:=a.Where(t->t<0).ToArray; c.Println;
end.
Пример:
-25 13 15 16 35 -7 21 -22 -5 3
13 15 16 35 21 3
-25 -7 -22 -5
//Версия 3.3, сборка 1634 (14.02.2018)
begin
var A:=ReadArrInteger(10);
var b:=a.Where(t->t>0).ToArray; b.Println;
var c:=a.Where(t->t<0).ToArray; c.Println;
end.
Пример:
-25 13 15 16 35 -7 21 -22 -5 3
13 15 16 35 21 3
-25 -7 -22 -5
Новые вопросы