4. Объясните и запишите функции каждого инструмента, указанного в таблице отправте. Кто ответит подпишусь.

Question

Информатика: 4. Объясните и запишите функции каждого инструмента, указанного в таблице отправте. Кто ответит подпишусь.

diana2005n · Accepted Answer

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016 begin   var a:=ReadLines( m17.txt ).JoinIntoString.ToIntegers;   a.Println;   var b:=a.Select((x,i)- Rec(x,i)).Where(x- x.Item1 0)     .Select(x- x.Item2).ToArray;   if b.Count 2 then     Writeln( Количество отрицательных элементов не равно двум )   else begin     a:=SeqFill(b[0],0).Concat(a.Skip(b[0]).Take(b[1]-b[0]+1))       .Concat(SeqFill(a.Length-b[1]-1,0)).ToArray;     a.Println     end end. Тестовое решение: 23 14 7 15 0 13 -6 41 18 13 8 42...

MOGZ ответил