Даны два одномерных массива, содержащие вещественные числа. Упорядочить по убыванию значений каждый из массивов с помощью алгоритм

[Лидия 188]

Даны два одномерных массива, содержащие вещественные числа. Упорядочить по убыванию значений каждый из массивов с помощью алгоритма сортировки, а затем получить новый массив, содержащий элементы двух заданных массивов также упорядоченный по убыванию.

[Aleksandr H.]

Сообщение от Stilet

Попытки и наработки, я так понял, ждать не стоит?

_____________

[Stilet]

... хотя бы ввод массива

[Лидия 188]

ребят, завал по лабам, а как эту делать я вообще не понимаю, помогите пожалуйста

[Stilet]

О грусть-пичалька... Совсем современные студни в студень превратились... В мое время бы рямнем да по месту шаловливому-тверковому....

Даны два одномерных массива, содержащие вещественные числа. Упорядочить по убыванию значений каждый из массивов с помощью алгоритма сортировки, а затем получить новый массив, содержащий элементы двух заданных массивов также упорядоченный по убыванию.

const n=3;m=4;
var 
 a:array[1..n] of double; b:array[1..m] of double; c:array[1..n+m] of double;;
 k,i,j:integer;
begin
 for i:=1 to n do begin a[i]:=random(100)/23.4; write(a[i]:5:2); c[k]:=a[i]; inc(k); writeln;
 for i:=1 to m do begin b[i]:=23/4random(100); write(b[i]:5:2); c[k]:=b[i]; inc(k); writeln;
 for i:=1 to m+n do write(c[i]:5:2); writeln;

 for i:=1 to n do for j:=1 to n do if a[i]<a[j] then begin k:=a[i]; a[i]:=a[j]; a[j]:=k; end;
 for i:=1 to m do for j:=1 to m do if b[i]<b[j] then begin k:=b[i]; b[i]:=b[j]; b[j]:=k; end;
 for i:=1 to n+m do for j:=1 to n+m do if c[i]<c[j] then begin k:=c[i]; c[i]:=c[j]; c[j]:=k; end;

 for i:=1 to n do write(a[i]:5:2); writeln;
 for i:=1 to m do write(b[i]:5:2); writeln;
 for i:=1 to m+n do write(c[i]:5:2); writeln;

 readln;

end.

Некоторые мелочи из ТЗ я не учел, ибо все равно массивы сортируются, так что их порядок думаю можно провтыкать.
Пробуй короче. Изучай.