spl15.PAS

{* Cамый часто встречающийся элемент в массиве *}

Unit SPL15;
Interface
Implementation
Begin
 writeln('Печать самого часто встречающегося элемента в массиве');
End.

Program pas;

Uses spl15.pas; {* Эту строку можно удалить *}
{ печать самого часто встречающегося элемента из массива }
Var {* Объявление переменных *}
  a : Array[1..10] Of integer;
  i : integer;
  j : integer;
  m : integer;
  p : integer;
  n : integer;
Begin
  writeln('введите 10 элементов массива');
  For i := 1 To 10 Do {* Увеличиваем i от 1 до 10 с шагом 1 *}
    readln( a[i] );
  m := 1;
  p := 1;
  For i := 1 To 10 Do {* Переменная i увеличивается с 1 до 10 *}
  Begin
    n := 0;
    For j := 1 To 10 Do {* Увеличиваем j от 1 до 10 с шагом 1 *}
    Begin
      If a[i] = a[j] Then
        inc(n); {* n++ *}
    End;
    If n > m Then
    Begin
      m := n;
      p := i;
    End;
    
  End;
  writeln('самый часто встречающийся элемент:', a[p]);
End.