Совокупность последовательных шагов, схема действий, приводящих к желаемому результату.
1)6.9877929 КБ
2)77594624 КБ
3)256 КБ
4)31457280
5)263168
6)628736
7)684
8)409600
9)9437184
10)2,5
22:22
01:10
02:20
03:30
04:40
05:50
11:11
21:12
12:21
00:00
23:32
13:31
14:41
15:51
10:01
20:02
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ReadAllLines('int.txt').JoinIntoString.ToIntegers;
Print('Прочитано'); a.Println;
var b:=a.Where(x->x>0);
Print('Отобрано'); b.Println;
var f:=OpenWrite('out.txt');
foreach var e in b do Write(f,e,' ');
f.Close
end.
<u><em>Тестовое решение:</em></u>
Прочитано -5 8 -3 -2 0 -6 4 9 0 0 4 -4 -1 0 -1 3 6 7 1 8 0 2 -5 -2 9
Отобрано 8 4 9 4 3 6 7 1 8 2 9