uses graph;
var n,i,x,y,height,width:integer;
procedure init;
var gd,gm:integer;
begin
gd:=vga;
gm:=vgahi;
initgraph (gd,gm,'');
end;
procedure error;
begin
closegraph;
writeln ('error!');
end;
begin
write ('N = ');
readln (n);
randomize;
init;
if graphresult = 0 then
begin
for i:=1 to n do
begin
setcolor (random(14)+1);
x:=random(640);
y:=random(480);
height:=random(91)+10;
width:=random(101)+20;
rectangle (x,y,x+width,y+height);
end;
end else error;
end.
P.S. Хотел прикрепить файлы, но тут написано чтобы с жёсткого диска, а у меня SSD(
В общем, создал функции сортировки и поиска минимума сумм.
Сортировка методом пузырька. Самая неэффективная и простая.
static void Main(string[] args)
{
int[] A = { 1, 5, 23, 6, 452, -2, 5 };
int[] B = { 1, 452, -2, 55, 23, 6, 7 };
int n = A.Length;
bubbleSort(A, n, true);
bubbleSort(B, n, false);
Console.Write(findMinCombine(A, B, n));
}
static void bubbleSort(int[] a, int n, bool increase)
{
int buff;
for (int i = 0; i < n; i++)
for (int j = n - 1; j > i; j--)
if (a[j - 1] - a[j] < 0 != increase)
{
buff = a[j - 1];
a[j - 1] = a[j];
a[j] = buff;
}
}
static int findMinCombine(int[] a, int[] b, int n)
{
int min = a[0] + b[0];
for (int i = 1; i < n; i++)
if (a[i] + b[i] < min)
min = a[i] + b[i];
return min;
}
