Question

Дан массив вещественных чисел D[17]. Определить произведение отрицательных элементов массива, поменять местами пятый и 10 элементы, вывести измененный массив. Паскаль.

Answer 1

1. program task31164690;
2. var
3.  D: array[1..17] of real;
4.  product: real;
5. begin
6.  product := 1;
7.  for var i := 1 to 17 do
8.    begin
9.      D[i] := Random(50.0) - 25.0;
10.      if D[i] < 0 then
11.        product := product * D[i]
12.    end;
13.  Swap(D[5], D[10]);
14.  Writeln(Format('ПРОИЗВЕДЕНИЕ ~ {0:0.0}', product));
15.  for var i := 1 to 17 do
16.    Writeln(Format('{0:0.000}', D[i]));
17. end.

Answer 2

Для решения данной задачи на языке Паскаль, вам потребуется объявить массив, заполнить его значениями, выполнить необходимые операции и вывести измененный массив. Вот пример кода для выполнения этой задачи:

pascalCopy code
program ArrayManipulation;

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

var
  D: array[1..N] of Real;
  i: Integer;
  productOfNegatives: Real;
  temp: Real;

begin
  // Заполнение массива значениями
  D[1] := 5.2;
  D[2] := -3.8;
  D[3] := 1.5;
  D[4] := -4.1;
  D[5] := 2.9;
  D[6] := -7.4;
  D[7] := -6.0;
  D[8] := 3.2;
  D[9] := 0.9;
  D[10] := 4.7;
  D[11] := -2.3;
  D[12] := -1.6;
  D[13] := 0.5;
  D[14] := 2.1;
  D[15] := 1.8;
  D[16] := -3.2;
  D[17] := 6.3;

  // Вычисление произведения отрицательных элементов
  productOfNegatives := 1.0;
  for i := 1 to N do
  begin
    if D[i] < 0 then
      productOfNegatives := productOfNegatives * D[i];
  end;

  // Поменять местами пятый и десятый элементы массива
  temp := D[5];
  D[5] := D[10];
  D[10] := temp;

  // Вывод измененного массива
  writeln('Измененный массив D:');
  for i := 1 to N do
  begin
    writeln('D[', i, '] = ', D[i]:0:2);
  end;

  writeln('Произведение отрицательных элементов массива: ', productOfNegatives:0:2);

end.

Обратите внимание, что значения элементов массива D[1] до D[17] приведены вручную в коде. В реальной программе они могут быть введены пользователем или сгенерированы случайным образом, в зависимости от требований задачи.