СКЛАДІТЬ АЛГОРИТМ В СЕРЕДОВИЩІ СКРЕТЧ.
Два учні – Гліб і Єгор – домовилися визначити переможця в киданні кубика, кожна сторона якого позначена різними цифрами від 1 до 6. Переможцем вважитиметься той із хлопців, хто за 10 кидків набере більшу кількість очок. Жеребом визначено, що першим кидати кубик починає Гліб, а в разі випадання однакової суми очок переможцем вважається Єгор.
У програми використайте три змінні: у змінній а накопчується сума очок Гліба, у змінній b – сума очок Єгора, а в змінній Переможець – ім’я переможця. Спочатку змінні a i b «очищуються», тобто набувають нульових значень. Після кожного кидка кубика значення цих змінних зростають на ту цифру, яка випадково випала після кидка. Оскільки першим кидок виконує Гліб, то спочатку збільшується змінна a, а потім змінна b. Такі операції повторюються 10 разів. Після цього за до команди умовного переходу (розгалуження) змінна Переможець набуває ім’я переможця (Гліб або Єгор)

121

203

Посмотреть ответы 1

Ответы на вопрос:

Лилия2073

Информатика

4,8(45 оценок)

Const n = 2014; var a: array [1..n] of real; d, r: real; i, j, k: integer; begin for i : = 1 to n do readln(a[i]); d : = abs(a[2] - a[1]); j : = 1; for i : = 2 to n - 1 do if abs(a[i + 1] - a[i]) < d then begin d : = abs(a[i + 1] - a[i]); j : = i; end; writeln(a[j], ' ', a[j + 1]) end.