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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

// 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.