Массивы, Дан массив из 30 элементов, найти количество элементов равному max Опции

[FeD0S]

Дан массив из 30 элементов, найти количество элементов равному max

[Игорь]

Вот. Все даные нужно вводить самому, позтому для тестирования программы константу LEN лучше сделать равной 5. В принципе данные могут генерироваться автоматически (случайными числами).

const

  LEN = 30;

var

  mass : array [1..LEN] of integer;
  max : integer;
  res : integer;
  i : integer;

begin

  for i := 1 to LEN do
    begin
      write('Input ',i,' number of mass: ');
      readln(mass[i]);
      if mass[i] > max then max := mass[i];
    end;

  for i := 1 to LEN do
    begin
      if mass[i] = max then res := res + 1;
    end;

  writeln('Result is ',res);
  readln;

end.

[FeD0S]

Вот. Все даные нужно вводить самому, позтому для тестирования программы константу LEN лучше сделать равной 5. В принципе данные могут генерироваться автоматически (случайными числами).

const

  LEN = 30;

var

  mass : array [1..LEN] of integer;
  max : integer;
  res : integer;
  i : integer;

begin

  for i := 1 to LEN do
    begin
      write('Input ',i,' number of mass: ');
      readln(mass[i]);
      if mass[i] > max then max := mass[i];
    end;

  for i := 1 to LEN do
    begin
      if mass[i] = max then res := res + 1;
    end;

  writeln('Result is ',res);
  readln;

end.

Большое спасибо) Скоро проверю