Теория вероятости, 7 класс решить 1 и 2 номер

===== 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.

 1 строчка говорит о том что ты создал программу под таким названием

2 строчка ты создаешь 3 переменных типа integer(числовой тип данных)

3 строчка ты создаешь массив из 10 ячеек так же типа integer

4 строка начало  программы

5 строка ты присваиваешь значение переменным которые создал во 2 строке

6 это функция вывода на экран(то что в скобках)

7 начало цикла который будет повторяться 10 раз

8 так же вывод в консоль

9 функция ввода с клавиатуры

10 проверка если итый (порядковый номер из массива) элемент массива больше s, тогда переменная s равна этому числу

11 конец цикла

12 начало другого цикла который так же повторяется 10 раз

13 начало

14 проверяешь если а итый равен s , тогда m+1

15 конец цикла

16 вывод на экран текста

17 конец программы