Составить блок-! к финалу конкурса лучшего по профессии «специалист электронного офиса» были допущены трое: иванов, петров, сидоров. соревнования проходили в три тура. иванов в первом туре набрал m1 , во втором n1, в третьем-p1. петров –m2, n2, p2: соответственно сидоров – m3, n3, p3. составить программу, определяющую, сколько набрал победитель.

объясняю: нужно найти сумму каждого участника, после чего найти максимальное значение и вывести его на экран. 

сначала мы вводим эти самые , потом складываем. далее sort3(iv,pet,sid) - это функция. если вы не знакомы с функциями, то просто перерисуйте вместо этого укрупненного блока все, что на следующей странице, вместо переменных а, в и с подставляя те переменные, которые вы используете для хранения суммы участников. 

что делает функция sort3: он сортирует по убыванию значения, хранящиеся в переменных а,в и с. после чего для того, чтобы получить максимальное значение, нам достаточно вывести первый элемент - а. функция swap   выполняет обмен значений переменных. sort2 - сортирует два элемента. она для sort3. 

в основной программе вместо переменных а,в и с использовались переменные iv, pet и sid. при неиспользовании функций подставляйте их. 

можно использовать простые развилки и не заморачиваться с sort3, но выходит неэффективно, некрасиво.при увеличении числа участников количество развилок вырастет в несколько раз - оно вам надо? проще отсортировать. 

 

Procedure rnd(a,b,n: integer); var   i: integer; begin   randomize;   for i: =1 to n do write(random(b-a+1)+a,' ') end; var   a,b,n: integer; begin   write('задайте интервал для генерирования чисел ');   read(a,b);   write('укажите количество случайных чисел: '); read(n);   rnd(a,b,n) end. тестовое решение: задайте интервал для генерирования чисел -5 10 укажите количество случайных чисел: 30 -4 1 4 -1 3 -4 9 1 5 -1 -1 9 1 -2 -5 -2 1 -2 2 -3 2 -4 7 10 -3 3 10 5 6 -1

Var   a,b,i,n,j,l,ier: integer;   s: string;   p: boolean; begin   write('введите границы интервала в виде пары натуральных чисел ');   read(a,b);   n: =0;   for i: =a to b do   begin       str(i,s);       l: =length(s);       if l=1 then inc(n)       else begin           j: =1;           repeat               p: =(s[j]=s[l-j+1]);               inc(j)           until (j> l) or (not p);           if p then inc(n)       end   end;   writeln('количество палиндромов равно ',n) end. тестовое решение: введите границы интервала в виде пары натуральных чисел 1550 2450 количество палиндромов равно 10