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);

Answer 2

Для выполнения задачи A в PascalABC, вам нужно создать массив A, затем создать массив B и вычислить его элементы согласно заданной формуле. Вот пример кода:

pascalCopy code
program TaskA;

const
  N = 10; // Размер массива

var
  A, B: array[1..N] of Integer;
  i: Integer;

begin
  // Заполняем массив A случайными значениями (здесь можно ввести значения вручную)
  for i := 1 to N do
    A[i] := Random(10); // Генерируем случайное число от 0 до 9

  // Вычисляем массив B
  for i := 1 to N do
    B[i] := A[i] * 2 - 1;

  // Выводим элементы массива B
  for i := 1 to N do
    Write(B[i], ' ');

  Readln;
end.

Теперь перейдем к задаче B: определить произведение отрицательных элементов, количество нулевых элементов, сумму элементов, кратных 3. Вот пример кода для этой задачи:

pascalCopy code
program TaskB;

const
  N = 10; // Размер массива

var
  A: array[1..N] of Integer;
  i, negativeProduct, zeroCount, sum, multipleOf3Count: Integer;

begin
  // Заполняем массив A случайными значениями (здесь можно ввести значения вручную)
  for i := 1 to N do
    A[i] := Random(21) - 10; // Генерируем случайное число от -10 до 10

  negativeProduct := 1; // Инициализируем произведение отрицательных элементов
  zeroCount := 0;      // Инициализируем количество нулевых элементов
  sum := 0;             // Инициализируем сумму элементов
  multipleOf3Count := 0; // Инициализируем количество элементов, кратных 3

  // Вычисляем необходимые параметры массива A
  for i := 1 to N do
  begin
    if A[i] < 0 then
      negativeProduct := negativeProduct * A[i];
      
    if A[i] = 0 then
      zeroCount := zeroCount + 1;
      
    sum := sum + A[i];
    
    if A[i] mod 3 = 0 then
      multipleOf3Count := multipleOf3Count + 1;
  end;

  // Выводим результаты
  Writeln('Произведение отрицательных элементов: ', negativeProduct);
  Writeln('Количество нулевых элементов: ', zeroCount);
  Writeln('Сумма элементов: ', sum);
  Writeln('Количество элементов, кратных 3: ', multipleOf3Count);

  Readln;
end.

Оба этих примера используют случайно сгенерированные значения для массива A. Вы можете изменить размер массива и вводить значения вручную, если это необходимо.