Question

a. Дан массив A. Сформировать массив В, каждый элемент которого вычисляется по формуле: В(i)=А(i)*2-1. Вывести на печать элементы массива В.

b. Для массива A определить произведение отрицательных элементов, количество нулевых элементов, сумму элементов, кратных 3.
PascalABC

Answer 1

                                             PascalABC.NET

a)

## var A := ReadArrInteger(6);

var B := new integer[a.Count];

foreach var x in 0..a.Count-1 do

 B[x]:= A[x]*2-1;

b.Println

b)

## var A := ReadArrInteger(10);

Println('Произведение отрицательных:', a.Where(x → x < 0).Product);

Println('Кол-во нулевых:', a.Where(x → x = 0).Count);

Println('Сумма кратных 3:', a.Where(x → x mod 3 = 0).sum);