Паскаль.
1. Последовательно ввести N чисел. Найти среднее арифметическое этих чисел.
2. Последовательно ввести N целых чисел. Найти минимальное из положительных чисел.
1. Последовательно ввести N чисел. Найти среднее арифметическое этих чисел.
2. Последовательно ввести N целых чисел. Найти минимальное из положительных чисел.
More Questions From This User See All
Answers & Comments
===== 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.