Задание:
Задача на паскале. Заданы 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.
Знаете другой ответ?