Сформировать третий массив из элементов первого массива, не принадлежащих промежутку {2, 7), и элементов второго массива из этого промежутка.​ Паскаль

Ответ:

program array3;

const

 L = 1;

 H = 10;

var

 n, i, s: Integer;

 A1, A2, A3: array [L..H] of Integer;

begin

 Randomize;

 for i := L to H do begin

   A1 [i] := Random (10);

   A2 [i] := Random (10);

   A3 [i] := Random (10);

 end;

 WriteLn ('Первый массив:');

 for i := L to H do

   Write (A1 [i], ' ');

 WriteLn;

 WriteLn ('Второй массив:');

 for i := L to H do

   Write (A2 [i], ' ');

 for i := L to H do

   if (i < 2) or (i > 7) then

     A3 [i] := A1 [i]

   else

     A3 [i] := A2 [i];

 WriteLn;

 WriteLn ('Результирующий массив:');

 for i := L to H do

   Write (A3 [i], ' ');

 WriteLn;

 ReadLn;

end.

Объяснение:

const

 L = 1;

 H = 10;

устанавливаются размерности для массивов, здесь можно их изменить