Обычно, если человек не указывает язык, то по итогу оказывается что нужно ему на паскале.
PascalABC.NET
begin
var nums := ArrRandom(100, -99, 99);
nums.Where(x-> x>3).Average.Println;
end.
Объяснение:
===== PascalABC.NET =====
var n := ReadInteger('Количество чисел =');
ReadSeqReal('Вводите:', n).Where(p -> p > 3)
.DefaultIfEmpty.Average.Println
Обычно, если человек не указывает язык, то по итогу оказывается что нужно ему на паскале.
PascalABC.NET
begin
var nums := ArrRandom(100, -99, 99);
nums.Where(x-> x>3).Average.Println;
end.
Объяснение:
===== PascalABC.NET =====
begin
var n := ReadInteger('Количество чисел =');
ReadSeqReal('Вводите:', n).Where(p -> p > 3)
.DefaultIfEmpty.Average.Println
end.