Не обязательно
пользователь сам подключает внешние накопители, если ему не хватает встроенной памяти компьютера)
a={}
s=0.0
n=30
k=0
for i in 1..n
a[i]=rand(1..100)
s=s+a[i]
end
s=s/30
for i in 1..n
if (a[i] > s)
k=k+1
end
end
p k
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := Arr(3.5, 4.2, 5.7, 6.3, 4.5, 7.1, 3.3);
Writeln('a) ', a.Sum);
Writeln('б) ', a.Where(t -> t > 5).Sum);
Writeln('в) ', a.Max);
Writeln('г) ', a.Where(t -> t < 5).Count);
Writeln('д) ', a.IndexMin + 1)
end.
<h3>a) 34.6</h3><h3>б) 19.1</h3><h3>в) 7.1</h3><h3>г) 4</h3><h3>д) 7</h3>