---PascalABC.NET 3.6.2 ---
begin
//Создадим переменную A типа List<integer>, задав в конструкторе ёмкость в 20 элементов;
var A : List<integer> := New List<integer>(20);
A.AddRange(SeqGen(A.Capacity, p -> Random(-10, 10))); //Запишем в наш List последовательность, длина которой равна List<T>.Capacity, и каждый элемент в которой генерируется случайно в диапазоне [-10; 10]
A.Println; //Распечатаем в консоль содержимое A
end.
Объяснение:
Заместо стандартного паскалевского массива использован класс List<T> библиотеки .NET Framework, являющийся аналогом обычного массива, но имеющий большее число методов для работы с ним.
А вообще, программа может быть написана в 1 строку:
begin
ArrRandom(20, -10, 10).Println;
end.
языки пламени костра×,
|колеблемые ветром|(причастный оборот), поднялись× в небо,
|озарив багряным блеском виноградники|. (деепричастный оборот)
основа : языки пламени поднялись
среди зарослей камыша, |рогами расставив страшные клешни|,(деепричастный оборот) проворно пробирался× к большой воде старый краб.
основа : пробирался краб
я сидел на маленьком островке×,
|окружённом со всех сторон тёмной водой|(причастный оборот) , и, |затаив дыхание|(деепричастный оборот), внимательно наблюдал×.
основа : я сидел и наблюдал
|высунув немного голову|(деепричастный оборот) , я мог× хорошо видеть× с утёса×,
|возвышающегося над морем|(причастный оборот) , всё, что в этот момент происходило внизу.
основа : спп- 1-я основа : я мог видеть, 2-я основа: происходило
ветер×, |не утихающий ни на минуту|(причастный оборот) , с бешеной скоростью несётся× над морем, |ломая гребни волн| () и |раскидывая во все стороны солёную пену|(деепричастный деепричастные обороты
основа : ветер несётся
обозначения (подчеркнуть в предложении) :
× - определяемое слово
|~~~| - причастный оборот
× - основное действие
|_. _. | - деепричастный оборот