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

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.