Var
a:array[1..100000] of integer;
b:array[0..9]of boolean;
n,i:integer;
Procedure Two_Max;
var
cnt, i:integer;
begin
For i:= 1 to n do
b[a[i]]:= true;
For i:= 9 downto 0 do
if (b[i] = true)and(cnt < 2) then
begin
inc(cnt);
Write(i, ' ');
end;
end;
begin
Read(n);
For i:= 1 to n do
Read(a[i]);
Two_Max;
end.
В ответе F два раза равно 1 и один раз 0, значит убираем уравнения на умножения, остается два уравнения на сложение 2 и 3.
теперь подставляем вуравнения числа из таблицы.
2 уравнение не подходит, т.к. в первой строчке будет 1+1=1, а в ответе 0.
Следовательно ответ 3
Ответ: 7
По условию если значение Ball[k] больше 3, то значение c увеличивается на 1.
Проверяем:
Ball[1] = 4 > 3 (да) c = 1
Ball[2] = 5 > 3 (да) c = 2
Ball[3] = 3 > 3 (нет) c = 2
Ball[4] = 4 > 3 (да) c = 3
Ball[5] = 2 > 3 (нет) c = 3
Ball[6] = 5 > 3 (да) c = 4
Ball[7] = 4 > 3 (да) c = 5
Ball[8] = 3 > 3 (нет) c = 5
Ball[9] = 4 > 3 (да) c = 6
Ball[10] = 5 > 3 (да) c = 7
Ну например ЖИРНЫЙ ШРИФТ , <u>Текст с подчёркиванием, </u><u /> <em>наклонный текст </em>
Ctrl c. ctrl v. сочетание клавиш