Предмет: Информатика,
автор: nf781
Из массива удалить все элементы, которые меньше 0.Составить программу в паскале,пожалуйста.
Ответы
Автор ответа:
0
// PascalABC.NET 3.3, сборка 1541 от 29.09.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
a:=a.Where(x->x>=0).ToArray; a.Println;
end.
Пример
n= 15
67 93 9 -89 95 -85 -39 74 48 -94 -14 -88 74 42 27
67 93 9 95 74 48 74 42 27
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
a:=a.Where(x->x>=0).ToArray; a.Println;
end.
Пример
n= 15
67 93 9 -89 95 -85 -39 74 48 -94 -14 -88 74 42 27
67 93 9 95 74 48 74 42 27
Похожие вопросы
Предмет: Биология,
автор: mustfollow0
Предмет: Физика,
автор: mariamihailenko21
Предмет: Литература,
автор: anna1612sokolov
Предмет: Математика,
автор: TTcNx