Массивы

var
  A: array [1..8] of integer;
  B, C, D: array [1..10] of integer;
  a_min, b_min, c_min, d_min, i: integer;
 
begin
  randomize; 
  for i := 1 to 8 do //заполнение массивов
  begin
    A[i] := random(-10, 10);
    write(a[i]:4);
  end;
  writeln();
  for i := 1 to 10 do
  begin
    B[i] := random(0, 20);
    write(B[i]:4);
  end;
  writeln();
  for i := 1 to 10 do
  begin
    C[i] := random(0, 20);
    write(C[i]:4);
  end;
  writeln();
  
  a_min := a[1];
  for i := 2 to 8 do //нахождение минимумов
    if a[i] < a_min then a_min := a[i];
  if abs(a_min) > 10 then
  begin
    b_min := B[1];
    for i := 2 to 10 do
      if B[i] < b_min then b_min := B[i];
    c_min := C[1];
    for i := 2 to 10 do
      if C[i] < c_min then c_min := C[i];
    writeln('(1) min B(i) + min C(i) = ', b_min + c_min);
  end
  else
  begin
    writeln();
    for i := 1 to 10 do
    begin
      D[i] := B[i] + C[i];
      write(D[i]:4);
    end;
    writeln();
    d_min := D[1];
    for i := 2 to 10 do
      if D[i] < d_min then d_min := D[i];
    writeln('(2) min(B(i) + C(i)) = ', d_min);
  end;
  
end.