{* Задача 377 *}

Unit ZADACH377;
Interface
Implementation
Begin
 writeln('В модуль включить подпрограмму определения максимального элемента из последовательности n целых чисел. В основной программе определить максимальный элемент из последовательности l целых чисел и установить, сколько элементов совпадает с максимальным.');
End.

Program lab10;

Uses zadach377.pas; {* Эту строку можно удалить *}
Uses crt, lab10un; {Подключение модулей}
Var {* Необходимые переменные *}
  i     : integer;
  maxel : integer;
  num   : integer;
  m     : mas;
Begin
  writeln('Введите ', n, ' элементов массива.');
  For i := 1 To n Do {Ввод эл-ов массива}
    readln(m[i]);
  maxel := max(m);
  num := 0;
  For i := 1 To n Do {Подсчет макс эл-ов}
    If (m[i] = maxel) Then
      num := num + 1;
  writeln('Максимальный элемент ', maxel);
  writeln('Количество макс. элементов ', num);
  readln; {* Приостановка программы. Ожидание Enter *}
End.