<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
WriteAllText('out.txt',
ReadAllText('in.txt').ToIntegers.Take(10).Where(t->t>=5).Sum.ToString)
end.
<u>Примечание: если чисел гарантировано 10, то .Take(10) можно убрать</u>
Ну вроде как если логически подумать то 3 график соответствует скорости велика
<h3>PascalABC.NET 3.4.2, сборка 1811 от 01.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var p:=SeqRandomReal(ReadInteger('n='),-99,99)
.Select(t->Round(t,2)).ToArray;
p.Println;
Println('Сумма положительных',p.Where(r->r>0).Sum);
Println('Сумма отрицательных',p.Where(r->r<0).Sum)
end.
А интернет для чего тебе? Это же лёгкие вопросы!
Вариант с большим кол-вом IP 1.0.0.0. Тогда максимальное кол-во IP = 2^31 = 2147483648