Ответы
Ответ дал:
0
PascalABC.NET 3.4.0, сборка 1677 от 17.06.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-5,5); a.Println;
a:=a.Where(t->t<>0).ToArray; a.Println
end.
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-5,5); a.Println;
a:=a.Where(t->t<>0).ToArray; a.Println
end.
Приложения:

Вас заинтересует
2 года назад
2 года назад
3 года назад
3 года назад
9 лет назад
9 лет назад
9 лет назад