mail_question237400350 (Слияние массивов с изменённым порядком)

{ Заданы массивы А и В по 10 элементов. Слить массивы А и В в массив С
 так, чтобы вначале шли элементы меньше среднего значения по всему массиву С. }

var A, B: array[1..10] of integer;
  C: array[1..20] of integer;
  i, sum, avg, cnt: integer;
begin
  { Заполнить исходные массивы значениями }
  randomize;
  for i := 1 to 10 do begin
    A[i] := random(21) - 10;
    B[i] := random(21) - 10;
  end;

  write('A: ');
  for i := 1 to 10 do begin
    write(A[i], ' ');
  end;
  writeln;

  write('B: ');
  for i := 1 to 10 do begin
    write(B[i], ' ');
  end;
  writeln;

  { Найти среднее арифметическое }
  sum := 0;
  for i := 1 to 10 do begin
    sum := sum + A[i];
    sum := sum + B[i];
  end;
  avg := sum div 20;
  writeln('avg = ', avg);

  { Сформировать массив C, в первой половине значения меньше avg, во второй - больше}
  cnt := 0;
  for i := 1 to 10 do begin
    if A[i] < avg then begin
      inc(cnt);
      C[cnt] := A[i];
    end;
  end;

  for i := 1 to 10 do begin
    if B[i] < avg then begin
      inc(cnt);
      C[cnt] := B[i];
    end;
  end;

  for i := 1 to 10 do begin
    if A[i] >= avg then begin
      inc(cnt);
      C[cnt] := A[i];
    end;
  end;

  for i := 1 to 10 do begin
    if B[i] >= avg then begin
      inc(cnt);
      C[cnt] := B[i];
    end;
  end;

  { Вывести итоговый массив }
  write('C: ');
  for i := 1 to 20 do begin
    write(C[i], ' ');
  end;
  writeln;
end.