Question

Опишите на языке pascal алгоритм подсчета числа элементов, равных максимальному, в числовом массиве из 30 элементов
Более простым способом,если можно,пожалуйста!!!
10 класс 

Answer 1

// Предполагаем, что первый 
// это максимальный элемент
v := a[1]; // значение максимального
n := 1; // число равных максимальному

for i := 2 to 30 do begin
   // Если текущий элемен равен максимальному,
   // то увеличим число
   if a[i] = v then 
      n := n + 1
   else if a[i] > v then
   begin
      // если текущий больше максимального,
      // то скинем счетчик и запомним значение
      n := 1;
      v := a[i];
   end;
end;

Answer 2

а всё-таки моё решение выбрали лучшим

Answer 3

ну наверно потому что твой вариант компилируется) а я просто алгоритм описал