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

Const
  nm=10; {максимальная длина массива}

var
  i,j,n1,n2,n3,t:integer;
  a,b:array[1..nm] of integer;
  c:array[1..2*nm] of integer;

begin
  Write('Введите количество элементов в массиве A: ');
  Readln(n1);
  Write('Введите количество элементов в массиве B: ');
  Readln(n2);
  n3:=n1+n2;
  Write('Введите элементы массива A через пробел ');
  for i:=1 to n1 do
    begin
    Read(a[i]); c[i]:=a[i]
    end;
  j:=n1;
  Write('Введите элементы массива B через пробел ');
  for i:=1 to n2 do
    begin
    Read(b[i]); Inc(j); c[j]:=b[i]
    end;
  Write('Массив А: ');
  for i:=1 to n1 do Write(a[i],' ');
  Writeln;
  Write('Массив B: ');
  for i:=1 to n2 do Write(b[i],' ');
  Writeln;
  { сортировка массива С}
  for i := 1 to n3-1 do
    for j := 1 to n3-i do
      if c[j] > c[j+1] then
        begin
        t:=c[j]; c[j]:=c[j+1]; c[j+1]:=t
        end;
  Writeln('Отсортированный по возрастанию массив C');
  for i:=1 to n3 do Write(c[i],' ');
end.

Контрольное решение:

Введите количество элементов в массиве A: 6
Введите количество элементов в массиве B: 4
Введите элементы массива A через пробел 3 8 -4 0 8 12
Введите элементы массива B через пробел 9 -5 8 5
Массив А: 3 8 -4 0 8 12
Массив B: 9 -5 8 5
Отсортированный по возрастанию массив C
-5 -4 0 3 5 8 8 8 9 12

Аударғыш (Транслятор; translator) - 1) бір тілде берілген (жазылған) алгоритмді екінші тіл түріне ауыстыратын программа. Жүзеге асыру тәсілдеріне байланысты аударғыш-компилятор және аударғыш-интерпретатор болып екіге бөлінеді; 2) программаны аударатын программа немесе техникалық құрылғы; бастапқы программаны объекті модульге айналдыратын өңдеуіш программа.

Аударғыш - автомобильді бекітіп қажет деңгейге көтеріп, қисайтып бұрып оның төменгі жағын қарап тексеруге мүмкіндік беретін көтергіш жабдық.

Объяснение:

Дұрыс болуы керек по идею

степень

Program Jopascal;  

Var  

 i, A: longint;  

 x,  

 u, j,  

 N, m : longint;  

Function FDiv (A, left : LongInt) : LongInt;  

var  

d,  

i : longint;  

begin  

d := 1;  

for i := left to Trunc (Sqrt (A)) do  

if (A mod i = 0)  

then  

begin  

d := i;  

Break;  

end;  

if (d <> 1)  

then  

FDiv := d  

else  

FDiv := A;  

end;  

Function g (N, u : longint) : longint;  

var  

i : longint;  

begin  

i := 0;  

while (N mod u = 0)  

do

begin  

Inc (i);  

N := N div u;  

end;  

g := i;  

end;  

Begin  

Assign (Input, 'input.txt');  

Assign (Output, 'output.txt');  

Reset (Input);  

Read (A);  

Close (Input);  

m := 0;  

N := 1;  

i := FDiv (A, 2);  

u := 2;  

while (A > 1)  

do  

begin  

N := N * i;  

j := 0;  

while (A mod i = 0)  

do  

begin  

Inc (j);  

A := A div i;  

end;  

if (j > m)  

then  

begin  

m := j;  

u := i;  

end;  

i := FDiv (A, i + 2);  

end;  

x := 1;  

while (g (N * x, u) * N * x < m)  

do  

Inc (x);  

N := N * x;  

ReWrite (Output);  

Write (N);  

Close (Output);  

End.