Егэ информатика. 11 номер. Нужен ход решения. ответ в задаче : 43

ответ:

Держи братик

Объяснение:

pascalabc.net

procedure minmax(a: array of integer; var min, max: integer);

begin

  for var i : = 0 to a.high do

    if a[i] < min then

      min : = a[i]

    else if a[i] > max then

      max : = a[i]

end;

begin

  var a1 : = arrrandom(10, -99, 99);

  a1.println;

  var a2 : = arrrandom(10, -99, 99);

  a2.println;

  var a3 : = arrrandom(10, -99, 99);

  a3.println;

  var a4 : = arrrandom(10, -99, 99);

  a4.println;

  var min1, min2, min3, min4, max1, max2, max3, max4: integer;

  minmax(a1, min1, max1);

  minmax(a2, min2, max2);

  minmax(a3, min3, max3);

  minmax(a4, min4, max4);

  var r : = seq(min1, min2, min3, min4, max1, max2, max3, max4)

    .sorted.toarray;

  r.println

end.

конечно, подобные намного компактнее и проще писать на базе двумерного массива.