Опишите на русском языке.. алгоритм подсчета числа...

Задание:

Опишите на русском языке или одном из языков программирования алгоритм подсчета числа элементов, равных максимальному, в числовом массиве из 30 элементов

Решение:

Выделяем целочисленные переменные k и max; в k будем хранить количество элементов, равных максимальному, а в max – значение максимального элемента. В k записываем начальное значение 1, а в max – значение первого элемента. В цикле рассматриваем все элементы массива со второго до последнего. Если текущий элемент равен переменной max, то увеличиваем счетчик k. Если текущий элемент больше max, то нашли новый максимальный элемент, запоминаем его значение в переменной max, а в счетчик k записываем единицу. В конце цикла в k записано количество элементов, равных максимальному.

var a:array[1..N] of integer;
    max, k, i: integer;
begin
  for i:=1 to N do readln(A[i]);
  k:=1;
  max:=a[1];
  for i:=2 to N do begin
    if a[i]=max then k:=k+1;
    if a[i]>max then begin
      max:=a[i];
      k:=1
    end
  end;
  writeln(k)
end.