// PascalABC.NET 3.1, сборка 1213 от 04.04.2016 begin var a:=SeqGen(10,i->i+8,1).ToArray; a.Println; a:=a.Select((x,i)->(i.IsOdd?2*x:x)).ToArray; a.Println; end.
// PascalABC.NET 3.1, сборка 1213 от 04.04.2016 begin var a:=ArrRandom(20,-55,120); a.Println; Writeln('Кол-во отрицательных равно ',a.Where(x->x<0).Count) end.
// PascalABC.NET 3.1, сборка 1213 от 04.04.2016 begin var b:=ReadArrInteger('7 чисел:',7); var i:=b.IndexMin; Writeln('Минимальный элемент B[',i+1,']=',b[i]) end.