///////////////<u>Pascal abc</u>/////////////
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var t:=Readinteger('T=');
Writeln('S=',a.Where(p->p>t).Sum)
end.
<u>Пример</u>
n= 15
13 20 41 -5 -41 4 -2 -30 21 3 -35 23 -27 -25 41
T= 12
S=159
Дело в том, что человек одновременно может концентрировать своё внимание лишь на 5−9 объектах.
Для упрощения работы с множеством объектов его делят на несколько частей; каждую из этих частей опять делят на части; те, в свою очередь, ещё раз и т.д. Деление большого множества на подмножества происходит не стихийно, а по некоторым признакам его объектов.
Пуск - все программы - стандартные - paint