Question

Из элементов массива А, состоящего из 25 элементов, сформировать массив D той же размерности по правилу: первые 10 элементов находятся по формуле Di=Ai+i, остальные - по формуле Di=Ai-i. (паскаль)

Answer 1

program raf105;

var

 a,d: array[1..25] of integer;

 i: integer;

begin

write('Массив A: ');

for i:=1 to 25 do

begin

 a[i]:= random(35,60);

 write(a[i],' ');

end;

writeln;

write('Массив D: ');

for i:=1 to 25 do

begin

 if i<=10

   then d[i]:=a[i]+i;

 if i>10

   then d[i]:=a[i]-i;

 write(d[i],' ');

end;

end.

PascalABC 3.4.2

Answer 2

Для создания массива D по указанным правилам вам потребуется два цикла: один для первых 10 элементов и второй для остальных. В зависимости от индекса элемента массива А вы будете использовать разные формулы для расчета элементов массива D.

Вот алгоритм на языке Pascal (Delphi) для выполнения указанных операций:

pascalCopy code
program CreateArrayD;

const
  N = 25; // Размерность массива А

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

begin
  // Здесь вы можете заполнить массив А случайными значениями или вручную
  // Ниже приведен пример заполнения массива А вручную
  for i := 1 to N do
  begin
    // Ваш код для заполнения массива А, например:
    A[i] := i;
  end;

  // Заполнение первых 10 элементов массива D по формуле Di = Ai + i
  for i := 1 to 10 do
  begin
    D[i] := A[i] + i;
  end;

  // Заполнение оставшихся элементов массива D по формуле Di = Ai - i
  for i := 11 to N do
  begin
    D[i] := A[i] - i;
  end;

  // Вывод массива D для проверки
  for i := 1 to N do
  begin
    Write(D[i], ' ');
  end;

end.

В этом примере, массив А заполняется значениями от 1 до 25, но вы можете изменить эту часть кода, чтобы заполнить массив А другими значениями, в том числе случайными. Код выводит значения массива D, который будет содержать 25 элементов, соответствующих указанным правилам.