Const m = 10; var a,b: array[1..m] of integer; c: array[1..m*2] of integer; i, j, k: integer; begin write ('Первый массив: '); for i := 1 to m do begin a[i] := random(100); c[i]:=a[i]; write (a[i],'; '); end; writeln; write ('Второй массив: '); for i := 1 to m do begin b[i] := random(100); c[i+m]:=b[i]; write (b[i],'; '); end; writeln; for i := 1 to 2*m-1 do for j := 1 to 2*m-i do if c[j] > c[j+1] then begin k := c[j]; c[j] := c[j+1]; c[j+1] := k end; write ('Отсортированный третий массив: '); for i := 1 to 2*m do write (c[i],'; '); end.
type teach = record firstName, lastName: string; end; lecture = record teacher: teach; subject: string; shifr, auditoria, day, para: integer; constructor create(teachFirstName, teachLastName, subject_: string; shifr_, auditoria_, day_, para_: integer); begin teacher.firstName := teachFirstName; teacher.lastName := teachLastName; subject := subject_; shifr := shifr_; auditoria := auditoria_; day := day_; para := para_; end; end;
var a: array [1..2] of lecture; begin for i: byte := 1 to 2 do begin a[i] := new lecture('Ололош' , 'Джигурдович', 'Джигурдоведение', 2, 5, 6, 7); end; end.
m = 10;
var
a,b: array[1..m] of integer;
c: array[1..m*2] of integer;
i, j, k: integer;
begin
write ('Первый массив: ');
for i := 1 to m do
begin
a[i] := random(100);
c[i]:=a[i];
write (a[i],'; ');
end;
writeln;
write ('Второй массив: ');
for i := 1 to m do
begin
b[i] := random(100);
c[i+m]:=b[i];
write (b[i],'; ');
end;
writeln;
for i := 1 to 2*m-1 do
for j := 1 to 2*m-i do
if c[j] > c[j+1] then
begin
k := c[j];
c[j] := c[j+1];
c[j+1] := k
end;
write ('Отсортированный третий массив: ');
for i := 1 to 2*m do
write (c[i],'; ');
end.