Допустим, в языке есть встроенная функция
Min(a,b) которая определяет мин из двух значений. Тогда алгоритм выглядит так
х=Мin(a,b);
x=Min(x,c);
А если нужно найти мин из N чисел, которые запрятаны в массив А(n), то так
x=999999999999999999999; // какое-то ОЧЕНЬ большое число
Для ц=1 по N цикл
x = Min(x,A(ц));
КонецЦикла;
А что, если такой функции в языке нет, спросишь ты, тогда её нужно написать самому, например, так
Функция Min(a,b)
Если a<b Тогда
Возврат(а);
Иначе
Возврат(b);
КонецЕсли;
КонецФункции
Вот и всЁ! Учитесь мыслить алгоритмически структурно, разбивая сложный алгоритм на ряд простых и понятных, и всё будет очень просто.
Успехов!
//Если программа не запускается, то обновите версию
uses graphABC;
const
kegl = 40;
var
space, line: integer;
procedure M(cx, cy: integer);
begin
MoveTo(cx, cy);
LineTo(cx, cy - kegl );
LineTo(cx + kegl div 2, cy);
LineTo(cx + kegl, cy - kegl);
LineTo(cx + kegl, cy);
end;
procedure I(cx, cy: integer);
begin
MoveTo(cx, cy - kegl);
LineTo(cx, cy );
LineTo(cx + kegl, cy - kegl);
LineTo(cx + kegl, cy);
end;
procedure R(cx, cy: integer);
begin
MoveTo(cx, cy);
LineTo(cx, cy - kegl);
LineTo(cx + kegl, cy - kegl);
LineTo(cx + kegl, cy - kegl div 2);
LineTo(cx, cy - kegl div 2);
end;
begin
space := kegl div 2;
SetWindowSize(4 * space + 3 * kegl, 4 * space + 3 * kegl );
line := space + kegl;
M(space, line );
I(2 * space + kegl, line );
R(3 * space + 2 * kegl, line );
line := 2 * space + 2 * kegl;
R(space, line );
I(2 * space + kegl, line );
M(3 * space + 2 * kegl, line );
line := 3 * space + 3 * kegl;
M(space, line );
I(2 * space + kegl, line );
M(3 * space + 2 * kegl, line );
end.