Question

Паскаль.
1. Последовательно ввести N чисел. Найти среднее арифметическое этих чисел.
2. Последовательно ввести N целых чисел. Найти минимальное из положительных чисел.

Answer 1

===== PascalABC.NET =====

- 1 -

begin

 var n := ReadInteger;

 ReadSeqReal('Вводите:', n).Average.Println

end.

- 2 -

begin

 var n := ReadInteger;

 ReadSeqInteger('Вводите:', n)

     .Where(p -> p > 0)

     .Min

     .Println

end.