ПОМОГИТЕ !!! Дана последовательность действительных чисел а1, а2, а3...аn Cоздать массив...

Question

ПОМОГИТЕ !!! Дана последовательность действительных чисел а1, а2, а3...аn Cоздать массив из положительных чисел этой последовательности (если таких чисел нет, то вывести сообщение об этом факте)

Answer 1

// PascalABC.NET

begin

 var n := ReadInteger('n =');

 var s := ReadSeqReal('Введите числа:', n);

 var a := s.Where(p -> p > 0).ToArray;

 if a.Length = 0 then

   Print('Положительных чисел нет')

 else

   a.Print

end.