Сформировать два массива содержащих 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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.