Вводятся два массива символов MxK и MxT.Объединить их слобцы так,чтобы в массиве-результате в первой строке элементы получились упорядоченными по возрастающей.
Пример
Вводится массив MxK размером 2x2
1 2
3 4
Вводится массви MxT размером 2x4
1 2 3 4
5 6 7 8
Нужно элементы этих массивов скопировать в первую строку массив-результата,только так чтоб они получились упорядоченными по возрастающей.
Вот пытылся делать,но застопорился после ввода данных.Подскажите что делать после ввода данных?
var
a:array[1..10,1..10] of integer;
b:array[1..10,1..10] of integer;
c:array[1..100,1..50] of integer;
n,m,k,z,f,i,j:integer;
begin
n:=2;
m:=6;
writeln('vvodite kol-vo stolbcov massiva A');
readln(k);
for i:=1 to n do
writeln('vvodite kolichestvo stolbcov massiva B');
readln(z);
for i:=1 to n do
begin
for i:=1 to n do
writeln('vvodite',k,'chisel');
for i:=1 to n do begin
for j:=1 to n do begin
Write('...');
Read(a[i,j])
end;
writeln('vvodite',z,'chisel');
for i:=1 to n do begin
for j:=1 to n do begin
Write('...');
Read(B[i,j]);
end;
end;
Сообщение отредактировано: fly -