1)6.9877929 КБ
2)77594624 КБ
3)256 КБ
4)31457280
5)263168
6)628736
7)684
8)409600
9)9437184
10)2,5
===== PascalABC.NET =====
begin
var a := ArrRandom(12, -2, 15);
Println('Исходный массив');
a.Println;
Println('Отобранные элементы');
a[2:].Println;
Println('После сортировки');
a[2:].Sorted.Println
end.
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(ReadSeqIntegerWhile(x->x<>0).Where(x->x.IsEven).Count());
end.
Воть копируй, файл
Мне нужно 20 символов, это для того, чтобы они были