Предмет: Информатика,
автор: MihalevAndrey7
Помогите решить задачу в Pascal, желательно простыми командами, зарание спасибо!)
Приложения:
![](https://files.topotvet.com/i/b0c/b0c4c241df414170f481b61d3a3d2ed9.jpg)
MihalevAndrey7:
Да мне хоть как уже решить)
Ответы
Автор ответа:
0
===== 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.
Конечно, подобные задачи намного компактнее и проще писать на базе двумерного массива.
Приложения:
![](https://files.topotvet.com/i/f43/f4379403a9a177ed3f5da65a71d68012.jpg)
Похожие вопросы
Предмет: Українська мова,
автор: xiaom23cf
Предмет: Алгебра,
автор: koronaanastasia1
Предмет: Математика,
автор: liza10666678
Предмет: История,
автор: fuzailovas2002
Предмет: Алгебра,
автор: shhjtgnngcv