{Даны отметки учеников за контрольную работу (по пятибальной системе). Отметки перечислены в том порядке, в каком ученики идут по списку в журнале.
Массив с отметками задан константой: в скобках после описания массива перечислены все значения его элементов. Поэтому вводить значения элементов массива в программе не нужно.
Найти количество учеников, получивших максимальную отметку за контрольную работу.
Внимание: программа должна верно работать и в том случае, если значения элементов массива заменить на другие - например, если в массиве вообще не будет отметок “5”}

Program Kontr6;
Const
a : array[1..25] of integer = (4, 5, 3, 3, 4, 4, 2, 5, 3, 4, 5, 5, 2, 3, 3, 3, 4, 4, 5, 2, 2, 5, 4, 4, 4);
Var
i, max, k : integer;
Begin

LONNI34    2   17.02.2021 08:45    8