создать 2 массива а и в разной длины отсортрровать их бугром то есть чтобы минимумы по краям а в середине максимум , потом записать эти 2 массива в массив С и отсортировать его бугром
uses crt;
Const N=10;M=16;
Type Mas=array[1..N+M] of Integer;
Var a,b,c:Mas;
i,j,buf,l,h:Integer;
Procedure Sozd_mas(Var d:mas;k:Integer);
Begin
For i:=1 to k do d[i]:=Random(50);
End;
Procedure Viv_mas(Var d:mas;k:Integer);
Begin
WriteLn;
For i:=1 to k do Write(d[i],' ');
End;
Procedure Sort_mas(Var m:mas;k:boolean;i,a:integer);
begin
repeat
k:=true;
for i:=1 to 9 do
if m[i]>m[i+1] then begin
a:=m[i];
m[i]:=m[i+1];
m[i+1]:=a;
k:=false;
end;
until k=true;
repeat
k:=true;
for i:=11 to 19 do
if m[i]<m[i+1] then begin
a:=m[i];
m[i]:=m[i+1];
m[i+1]:=a;
k:=false;
end;
until k=true;
for i:=1 to 20 do
write(m[i],' ');
readln;
end;
BEGIN
ClrScr;Randomize;
Sozd_mas(a,N);
Write('Массив А->');
Viv_mas(a,N);WriteLN;
Write('Массив А_Sort->');
Sort_mas(a,N);
Viv_mas(a,N);
WriteLN;
Write('Массив B->');
Sozd_mas(b,M);
Viv_mas(b,M);
WriteLn;
Write('Массив B_Sort->');
Sort_mas(b,M);
Viv_mas(b,M);
For l:=1 to N do c[l]:=a[l];
h:=0;
For l:=N+1 to N+M do Begin
Inc(h);
c[l]:=b[h];
End;
WriteLN;
Sort_mas(c,N+M);
Write('Массив С_Sort -> ');
Viv_mas(c,N+M);
End.
и на файлы
Создать три файла: А,В,С из целых чисел. Создать новый файл D из чисел, которые встречаются во всех трех файлах. В файле D числа не должны повторяться
всем огромное спс за ранее