Сформировать два массива содержащих n элементов. Отсортиропять первые по возрастанию, а второй по убывания. Вывести на экран. З

атем первый массив просумировать со вторым, а из второго вычесть первый

Uses

crt;

const

n = 100;

var

a: array [1 ... n] of integer;

b: array [1 ... n] of integer;

i, j, m: byte;

p1, p2: integer;

begin

write ('Количество элементов: ') ;

readln (m) ;

clrscr;

writeln ('Ввод массива A') ;

writeln;

for i:=1 to m do

begin

write ('A[', i,']: ') ;

readln (a[i]) ;

end;

clrscr;

writeln ('Ввод массива B') ;

writeln;

for i:=1 to m do

begin

write ('B[', i, ']: ') ;

readln (b[i]) ;

end;

clrscr;

writeln;

writeln ('Исходный массив А:') ;

for i:=1 to m do write (a[i]:4) ;

writeln; writeln; writeln ('Исходный массив B:') ;

for i:=1 to m do write (b[i]:4) ;

for i:=1 to m-1 do

for j:=m downto i do

begin

if a[i] > a[j] then

begin

p1:=a[i]; a[i]:=a[j]; a[j]:=p1;

end;

if b[j] > b[i] then

begin

p2:=b[i]; b[i]:=b[j]; b[j]:=p2;

end;

end;

writeln; writeln; writeln ('Массив А по возрастанию:') ;

for i:=1 to m do write (a[i]:4) ;

writeln; writeln; writeln ('Массив B по убыванию:') ;

for i:=1 to m do write (b[i]:4) ;

writeln; writeln; writeln ('Массив A+B:') ;

for i:=1 to m do

begin

a[i]:=a[i]+b[i];

write (a[i]:4) ;

a[i]:=a[i]-b[i];

end;

writeln; writeln; writeln ('Массив B-A:') ;

for i:=1 to m do

begin

b[i]:=b[i]-a[i];

write (b[i]:4) ;

end;

readln;

end.