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

проще некуда)))

у нас разные понятия о сложности )

просто сейчас изучаю процедуры и функции, надо же практоковаться

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

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

// Предполагаем, что первый // это максимальный элемент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;