Решить на c++ вчера ростислав с мирославом играли в камень, ножницы, бумагу на щелбаны. за каждый выигранный раунд победитель ставил один щелбан проигравшему. в случае ничьи щелбаны не ставились. сегодня утром мирославу кажется, что он получил слишком много щелбанов. но, к сожалению, он не может посчитать точное количество своих поражений, так как он запомнил только то, что ростислав показал камень r1 раз, ножницы s1 раз и бумагу p1 раз. а сам мирослав показал камень r2 раз, ножницы s2 раз, бумагу p2 раз. мирославу узнать, какое максимальное количество щелбанов он мог получить вчера. для справки, победитель этой игры определяется по следующим правилам: • камень побеждает ножницы («камень затупляет или ломает ножницы»); • ножницы бумагу («ножницы разрезают бумагу»); • бумага побеждает камень («бумага накрывает камень» если игроки показали одинаковый знак, то засчитывается ничья. формат входных данных в первой строке входных данных три целых числа r1, s1, p1. во второй строке три целых числа r2, s2, p2. все числа неотрицательные и не превышают 10⁸, r1 + s1 + p1 = r2 + s2 + p2. формат выходных данных выходные данные должны содержать единственное число — максимальное количество щелбанов, которые мог получить мирослав.
Ответы
var a: array[1..20] of integer; i,j,k,l,s: integer; beginfor i: =1 to 20 do beginrandomize; a[i]: =random(101)-50; write(a[i],' '); end; k: =0; l: =0; for i: =1 to 20 do beginif l< k then l: =k; k: =0; for j: =1 to 20 doif a[i]=a[j] then k: =k+1; end; writeln; writeln(l); for i: =1 to 20 doif i mod 2 = 0 then s: =s+a[i]; writeln(s); end.
выводит массив из рандомных 20 чисел между -50 и 50
допустим
0 1 -2 1 2 3 5 4 5 8 9 10 14 -14 8 -11 10 45 6 1
затем выводит макс. кол-во похожих
0 1 -2 1 2 3 5 4 5 8 9 10 14 -14 8 -11 10 45 6 1
3
и теперь сумму четных элементов
0 1 -2 1 2 3 5 4 5 8 9 10 14 -14 8 -11 10 45 6 1
1+1+3+4+8+10-14-11+45+1=48
можно обойтись без массива:
program meredith; var n,i,a,b,v,a1,a2,temp: integer; begin writeln('* alphaues is *'); write('ok, введите число n ='); readln(n); a: =0; for i: =1 to n do begin write('введите ',i,'-e число '); readln(temp); if i mod 2 = 1 then a : = a + temp else a : = a - temp; if i = 1 then a1 : = temp; if i = 2 then a2 : = temp; end; writeln(' а: ',a); writeln(' б: ',a1+temp); writeln(' в: ',a1-a2); writeln('*******************************'); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Буду ! составьте программу для нахождения нод 4 чисел .
Переведите подождите пока фото грузится
Составить программу обратной записи слово информатика в виде акитамрофни
