Задача на массивы

[crew_92]

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

[IT-man]

Язык?сделаю на паскале за $ !аська в профиле!

[Disel]

Вот мой простой вариант:

Program a1;
Var a:array [1..30] of integer;
    i,max,k:integer;
BEGIN
 randomize;
 for i:=1 to 30 do
  a[i]:=random(15);

 for i:=1 to 30 do
  write(a[i]:4);

  max:=a[1];
  for i:=1 to 30 do
   if a[i]>max then
    max:=a[i];
  k:=0;
  for i:=1 to 30 do
   if max=a[i] then
    k:=k+1;
   writeln;
   writeln('max=',max);
   writeln ('kolvo max=',k);

    readln;
END.

[crew_92]

Disel, большооое спасибо!