Вчера ростислав с мирославом играли в камень, ножницы, бумагу на щелбаны. за каждый выигранный раунд победитель ставил один щелбан проигравшему. в случае ничьи щелбаны не ставились. сегодня утром мирославу кажется, что он получил слишком много щелбанов. но, к сожалению, он не может посчитать точное количество своих поражений, так как он запомнил только то, что ростислав показал камень r1 раз, ножницы s1 раз и бумагу p1 раз. а сам мирослав показал камень r2 раз, ножницы s2 раз, бумагу p2 раз. мирославу узнать, какое максимальное количество щелбанов он мог получить вчера

Условие проигрыша: ножницы против камня, камень против бумаги, бумага против ножниц. максимальное количество проигрышей мирослава определяется максимально возможным количеством событий, когда возникали пары: s2 ⇔ r1, r2 ⇔ p1, p2 ⇔ s1 количество таких пар не превышает суммы следующих минимальных значений: k=min(s2,r1)+min(r1,p1)+min(p2,s1)

Const   k = 15; var   x: array[1..k] of integer;   i, n, m: integer; begin   randomize;   write('введите значение n -> ');   readln(n);   write('элементы массива: ');   m : = 0;   for i : = 1 to k do   begin       x[i] : = random(n + 1) + 1;       m : = m + x[i];       write(x[i]: 4);   end;   writeln;   writeln('среднее арифметическое равно ', m / k: 0: 4) end. тестовое решение: введите значение n -> 50 элементы массива:     22  31    1  35  18  41    1  35  46  12  48  27  35  37  29 среднее арифметическое равно 27.8667

Заметим, что числа образуют арифметическую прогрессию, а её сумма известна: поэтому два варианта программы: один вычисляет сумму накоплением, второй сразу определяет результат по формуле. хороший пример того, что программист должен знать . var   n, i, s: integer; begin   write('введите натуральное число: ');   readln(n);   if (n mod 2) = 0 then   begin       s : = 0;       for i : = 1 to n do s : = s + i;       writeln('сумма чисел от 1 до ', n, ' равна ', s)   end   else writeln('введено нечетное число') end. тестовое решение: введите натуральное число: 8 сумма чисел от 1 до 8 равна 36 var   n, s: integer; begin   write('введите натуральное число: ');   readln(n);   if (n mod 2) = 0 then       writeln('сумма чисел от 1 до ', n, ' равна ', ((1 + n) * n) div 2)   else writeln('введено нечетное число') end. тестовое решение: введите натуральное число: 8 сумма чисел от 1 до 8 равна 36