Нужно решить даю максимум

Информáтика (фр. Informatique; англ. Computer science) — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений[1].

Информатика включает дисциплины, относящиеся к обработке информации в вычислительных машинах и вычислительных сетях: как абстрактные, вроде анализа алгоритмов, так и конкретные, например разработка языков программирования и протоколов передачи данных.

Темами исследований в информатике являются вопросы: что можно, а что нельзя реализовать в программах и базах данных (теория вычислимости и искусственный интеллект), каким образом можно решать специфические вычислительные и информационные задачи с максимальной эффективностью (теория сложности вычислений), в каком виде следует хранить и восстанавливать информацию специфического вида (структуры и базы данных), как программы и люди должны взаимодействовать друг с другом (пользовательский интерфейс и языки программирования и представление знаний) и т. п.

===== PascalABC.NET =====

- Б) -

begin

 var p := ArrRandom(10, -10, 10);

 Print('P:');

 p.Println;

 var B := p.Select(q -> 0.5 * Sin(q) + 0.1).ToArray;

 Print('B:');

 if B.Count(p -> p > 0) <= 5 then

   B.Transform(q -> q > 0 ? 1.0 : q);

 B.Println

end.

- В) -

begin

 var x: array of real := (-1, -2, 3, 4, 5, -7, -12, 1,

     0.8, -6, 5, 7, -2, 0.1, 0, 3, -8, -5);

 x.Println;

 var x1 := x.Where(p -> p > 0).Println.ToArray;

 var x2 := x.Where(p -> p < 0).Println.ToArray;

 var x3 := x.Indices(p -> p > 0).Select(p -> p + 1).Println.ToArray;

 var x4 := x.Indices(p -> p < 0).Select(p -> p + 1).Println.ToArray

end.