Тема: Одномерные массивы. Вариант 10

Pascal:
1.Дан одномерный массив, который содержит не более 50 целых чисел. Заменить каждый элемент массива суммой соседних индексов. Если соседних элементов нет, то число оставить без изменения.

2.Дан одномерный массив, который содержит не более 40 целых чисел. Найти сумму отрицательных элементов, которые расположены между максимальным и минимальным элементом.

3. Дан одномерный массив, который содержит не более 60 символов. Ответить на вопрос, есть ли среди данных символов сочетание «…».

Только для PascalABC.Net 3.2 !!!begin  var n:=readInteger('Число элементов массива-');  var a:=ArrRandom(n,-50,50); a.Println;  for var i:=1 to n-2 do a[i]:=2*(i+1);  a.Printlnend.ПримерЧисло элементов массива- 10-40 4 -49 0 -47 41 49 33 -31 -1-40 4 6 8 10 12 14 16 18 -1begin  var n:=readInteger('Число элементов массива-');  var a:=ArrRandom(n,-50,50); a.Println;  var i1:=a.IndexMax;  var i2:=a.IndexMin;  Writeln(a[min(i1,i2)+1:max(i1,i2)].Where(x->x<0).Sum)end.ПримерЧисло элементов массива- 18-45 -30 -49 -44 34 -5 -12 -28 22 14 -39 -20 -46 50 6 21 20 -47-194begin  var a:=ReadlnString('Введите строку;').ToCharArray;  // было сделано так только ради получения массива символов,  // который на самом деле только мешает  Writeln(a);  if Pos('...',a.JoinIntoString)>0 then    Writeln('Троеточие в массиве есть')  else Writeln('Троеточия в массиве нет')end.ПримерВведите строку; 6ye$% DFDRT..drrtert...DFDGD[6,y,e,$,%, ,D,F,D,R,T,.,.,d,r,r,t,e,r,t,.,.,.,D,F,D,G,D]Троеточие в массиве есть