Из двух упорядоченных одномерных массивов (длины K и N) сформируйте одномерный массив размером K+N, упорядоченный в обратную сторону - Turbo Pascal - Ответ 3050769

uses
 crt;
 var
     b:array [1..100] of integer;
     a:array [1..100] of integer;
     c:array [1..100] of integer;
     k,n,i,f,j,i1,i2:integer;
 begin
    clrscr;
    write('vvdite N');
    readln(N);
    for i:= 1 to n do
    begin
      write('vvedite ',i,' ilement');readln(a[i]);
    end;
    write('vvdite K'); readln(k);
    for i:= 1 to k do
    begin
       write('vvedite ',i,' ilement'); readln(b[i]);
    end;
    clrscr;
    write('Massiv s dlinoi N ');
    for i:=1 to n do
       write(a[i]:4);
    writeln;
    write('Massiv s dlinoi K ');
    for i:=1 to k do
       write(a[i]:4);
 
    i1:=1;i2:=1;
    for i:=n+k downto 1 do
           if a[i1]>b[i2] then begin c[i]:=a[i1];inc(i1);end
           else begin c[i]:=b[i2];inc(i2);end;
 
    write('Massiv N+k');
    for i:=1 to n+k do
        write(c[i]:4);
    readln;
END..