Question

Помогите решить задачу в Pascal, желательно простыми командами, зарание спасибо!)

Answer 1

===== 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.

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