Подсчитайте за один проход массива, сколько его элементов равны максимальному элементу. входные данные на вход программе сначала подается значение n100 — количество элементов в массиве. в следующей строке входных данных расположены сами элементы массива — целые числа, по модулю не превосходящие 30 000. выходные данные выдайте количество искомых элементов массива. примеры входные данные 8 4 3 5 2 5 1 3 5 выходные данные 3

Var
A:array[1..100] of integer;
i,M,N,k:integer;
Begin
ReadLn(N);
M:=-30001;
k:=0;
For i:= 1 to N do
    Begin
    Read(A[i]);
    if A[i]>M then
       Begin
       k:=0;
       M:=A[i]
       End;
    if A[i]=M then k:=k+1
    End;
WriteLn(k)
End.

     Запишем вычисление суммы "в столбик", помня, что вычисления проводятся в системе счисления по некоторому основанию n>7. Почему именно n>7? Потому, что если бы основание системы было равно или меньше семи, в записи числа цифра семь не могла бы существовать.
   12
+ 17

   31
     В младшем разряде 2+7=1, чего быть не может, следовательно, 2+7=11 и единица пошла в старший разряд. Подтверждение этому мы видим при сложении в старшем разряде: 1+1+1=3 (учтена единица от переноса).
     Мы знаем, что 2+7=9 в десятичной системе счисления, а у нас получилось 11. Находим разницу: 11-9=2. Именно на столько основание системы счисления меньше десяти. 10-2=8. Следовательно, система счисления восьмеричная.
ответ: в восьмеричной системе счисления.

Сначала немного теории.
Тут у нас импликация(если..то...), комбинированная с конъюнкцией(и).
Таблица истинности импликации(стрелочки):
0 0 1
0 1 1
1 0 0
1 1 1
Общее правило: если a<=b, тогда правда
Таблица истинности конъюнкции(/\):
0 0 0
0 1 0
1 0 0
1 1 1
Общее правило: если есть одна ложь-всё ложь
Теперь о примере:
Просто подставляем вместо x варианты. Так как между двумя скобочками с Если... То... стоит И, нам нужен вариант, где оба Если... То... являются правдой.
Рассмотрим подробно 1 вариант:
21<25 - это правда
21<23 - это правда
Таким образом, в первых скобочках правда, это доказывает таблица истинности, приведённая выше.
21<22 - это правда
21>21 - это ложь
В этих скобочках-ложь.
А так как ложь и правда в И являются ложью, нам не подходит данный вариант
2 вариант-верный ответ, т.к.:
22<25 - это правда
22<23 - это правда
В первых скобочках правда
22<22 - это ложь
22>21 - это правда
И в этих скобках правда.
Как можно убедится, снова взглянув в таблицу истинности для конъюнкции, всё выражение является правдой.
3 и 4 посмотрите сами и убедитесь что это ложь.