В программе Publisher можно внести бизнес-информацию по умолчанию, которая затем будет использована во всех шаблонах публикаций??

Var
a : array[1..10] of word;
max : word;
begin
   
  randomize;
 
  for I : byte := 1 to 10 do
  a[i] := random(1, 60000);

  max := 0;
  for I : byte := 1 to 10 do
  if a[i] > max then max := a[i];

  writeln(max*3);

end.

Добавлю и объяснение. Алгоритм заполняет целочисленный массив из десяти элементов случайными числами. Возможны диапазон числе: от 1 до 60000. Затем в следующем цикле выискивается максимальное число, которое выдал генератор случайных чисел. В строке writeln выводится значение этого числа умноженное на три.

#include - подключение библиотеки.

using namespace std; - объявление пространства имен

void swap(int x, int y, int z) - определение функции swap, которая ничего не возвращает, с принимаемыми аргументами типа int. Служит для обмена значений

{} - операторные скобки

int temp - объявление локальной переменной temp.

if(x > y ) - Если x > y, мы меняем значения x и y. temp - промежуточная переменная для хранения значения.

if(x > z) - Если x > z, мы меняем значения x и z. temp - промежуточная переменная для хранения значения.

if(y > z) - Если y > z, мы меняем значения y и z. temp - промежуточная переменная для хранения значения.

cout << x << " " << y << " " << z << "\n"; - вывод переменных x y z через пробел. \n - перевод каретки на новую строку.

}

int main() - главная функция, которая начинает свое выполнение при запуске

{

int x = 2, y = 6, z = 5; - определение переменных x y z

swap(x, y, z); - вызываем функцию и передаем ей значения x y z

system("pause >> null"); - передача команды "pause >> null" командному процессору. Тормозим выполнение программы. >> null означает, что не будет ничего написано. (Без этого будет писать, в роде: Для продолжения нажмите")

return 0; - возвращаемое значение

}