Дан целочисленный двумерный массив, размерности n х n. Элементы главной диагонали переписать в одномерный массив и вывести сумму, количество положительных элементов полученного одномерного массива.

// PascalABC.NET 3.3

begin
  var a:=ArrRandom(10,-50,50);
  writeln('1)');  a.Println;
  writeln('Среднее арифметическое четных элементов = ',
           a.Where(x->x mod 2=0).Average);
  var c:=ArrRandom(10,-50,50);
  writeln('2)');  c.Println;
  writeln('max+min = ',c.Max+c.Min);
  writeln('3)');
  var n:=ReadInteger('n =');
  var b:=SeqGen(n,random(5),x->x+random(1,5)).ToArray;
  b.Println;
  var s:=ReadInteger('s =');
  var k:=b.Where(x->x<s).Count;
  b:=b[:k]+Arr(s)+b[k:];
  b.Println;
end.

Пример:
1)
-24 12 -31 -5 -45 36 27 43 46 -6
Среднее арифметическое четных элементов = 12.8
2)
24 -13 -20 -47 16 27 -33 11 22 -33
max+min = -20
3)
n = 10
0 4 5 7 11 15 19 20 24 25
s = 10
0 4 5 7 10 11 15 19 20 24 25

Некоторый алгоритм из одной цепочки символов получает новую цепочку следующим образом. Сначала вычисляется длина исходной цепочки символов; если она нечётна, то в исходной цепочке символов удваивается средний символ, а если чётна, то в начало цепочки добавляется символ 1. В полученной строке каждая цифра заменяется на следующую (1 заменяется на 2, 2 — на 3, и т. д., а 9 заменяется на 0). Получившаяся таким образом цепочка является результатом работы алгоритма.

Например, если исходной цепочкой была цепочка 356, то результатом работы алгоритма будет цепочка 4667, а если исходной цепочкой была 52, то результатом работы алгоритма будет цепочка 263.

Дана цепочка символов 35842. Какая цепочка символов получится, если к данной цепочке применить описанный алгоритм дважды (то есть применить алгоритм к данной цепочке, а затем к результату вновь применить алгоритм)?

Применим алгоритм: 35842 (нечётная) → 358842 → 469953.

Применим его ещё раз: 469953 (чётная) → 1469953 → 2570064.

 

ответ: 2570064.

Объяснение: