На паскале. заданы 2 числа. определить, какое из них встречается в массиве чаще. (нужно полное решение)

const max=10; var mas: array[1..max] of integer; a,b: integer; counta,countb: integer; i: integer; beginreadln (a,b); for i: =1 to max dobeginreadln (mas[i]); if (mas[i]=a) then counta: =counta+1; if (mas[i]=b) then countb: =countb+1; end;

if (counta> countb) then writeln ('число' ,a,' встречается больше'); if (countb> counta) then writeln ('число' ,b, ' встречается больше'); end.

int main() {

string sistema;

cin >> sistema;

if (sistema == "пятибалльная") {

int ocenka;

cin >> ocenka;

switch (ocenka) {

case 2 : cout << "Неудовлетворительно";

case 3 : cout << "Удовлетворительно";

case 4 : cout << "Хорошо";

case 5 : cout << "Отлично"

}

}

if (sistema == "двенадцатибалльная") {

int ocenka;

cin >> ocenka;

switch(ocenka) {

case 2 : cout << "два";

case 3: cout << "три";

case 4 : cout << "4";

case 5 : cout << "5";

case 6: cout << "6";

case 7 : cout << "7";

case 8: cout << "8";

case 9: cout << "9";

case 10 : cout << "10";

case 11 : cout << "11";

case 12 : cout << "12";

}

}

return 0;

}

Данное выражение истинно тогда и только тогда, когда истинно хотя бы одно из следующих выражений: или (*); Важно понимать, что последнее выражение невозможно сделать истинным при любых переменных. Действительно, всегда можно выбрать ; Поскольку , то можно выбрать и гарантированно обеспечить ложность последнего выражения. Тогда 10 \Leftrightarrow A>10" class="latex-formula" id="TexFormula6" src="https://tex.z-dn.net/?f=x%5Ctimes0%2BA%3E10%20%5CLeftrightarrow%20A%3E10" title="x\times0+A>10 \Leftrightarrow A>10">; Значит A хотя бы 11, все меньшие значения опровергаются значением ; Докажем, что подходит: в силу имеем 10" class="latex-formula" id="TexFormula10" src="https://tex.z-dn.net/?f=xy%2BA%5Cgeq%2011%3E10" title="xy+A\geq 11>10"> - это выражение верно, а, значит, верно и все выражение (при любых переменных), благодаря (*).